documentation bug in perlipc

[p5pRT]

Migrated from rt.perl.org#850 (status was 'resolved')

Searchable as RT850$

[p5pRT]

From lyonsm@bob.globalmediacorp.com

Possible documentation bug in perlipc. (Please ignore this if it's been fixed or if I'm wrong!)

In the section "Unix-Domain TCP Clients and Servers" the following example is used​:

unless ( -S '/dev/log' ) { die "something's wicked with the print system"; }

I could be wrong\, but IIRC /dev/log belongs to syslogd and is unrelated to the print system (/var/run/printer on my system).

Perl Info

``` Site configuration information for perl 5.00503: Configured by markm at $Date: 1999/05/05 19:42:40 $. Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: Platform: osname=freebsd, osvers=4.0-current, archname=i386-freebsd uname='freebsd freefall.freebsd.org 4.0-current freebsd 4.0-current #0: $Date: 1999/05/05 19:42:40 $' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef Compiler: cc='cc', optimize='undef', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release) cppflags='' ccflags ='' stdchar='char', d_stdstdio=undef, usevfork=true intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags ='-Wl,-E' libpth=/usr/lib libs=-lm -lc -lcrypt libc=/usr/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so.3 Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-DPIC -fpic', lddlflags='-shared' Locally applied patches: @INC for perl 5.00503: /usr/libdata/perl/5.00503/mach /usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd /usr/local/lib/perl5/site_perl/5.005 . Environment for perl 5.00503: HOME=/home/lyonsm LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/bin:/usr/local/sbin:/usr/X11R6/bin:/home/lyonsm/bin PERL_BADLANG (unset) SHELL=/bin/bash ```

[p5pRT]

From @rspier

[cleaning up old tickets]

patch against perl-current

Inline Patch

```diff --- perlipc.pod.orig Wed Jul 19 23:26:14 2000 +++ perlipc.pod Wed Jul 19 23:27:17 2000 @@ -839,3 +839,3 @@ unless ( -S '/dev/log' ) { - die "something's wicked with the print system"; + die "something's wicked with the log system"; } ```

[p5pRT]

From @floatingatoll

R.

diff -c /root/perl-current/pod/ /root/perl-patched/pod/perlipc.pod *** /root/perl-current/pod/perlipc.pod Fri Apr 28 11​:19​:06 2000 --- /root/perl-patched/pod/perlipc.pod Sun Jul 23 01​:25​:31 2000 *************** *** 837\,843 ****   You can test for these with Perl's B\<-S> file test​:  
  unless ( -S '/dev/log' ) { ! die "something's wicked with the print system";   }  
  Here's a sample Unix-domain client​: --- 837\,843 ----   You can test for these with Perl's B\<-S> file test​:  
  unless ( -S '/dev/log' ) { ! die "something's wicked with the log system";   }  
  Here's a sample Unix-domain client​:

[p5pRT]

From @jhi

  unless \( \-S '/dev/log' \) \{

! die "something's wicked with the log system";

Thanks.

[p5pRT]

From [Unknown Contact. See original ticket]

patch submitted to p5p

[p5pRT]

From The RT System itself

patch submitted to p5p