diff options
| -rw-r--r-- | README.irix | 2 | ||||
| -rw-r--r-- | README.os2 | 2 | ||||
| -rw-r--r-- | pod/perlhack.pod | 4 | ||||
| -rw-r--r-- | pod/perlipc.pod | 14 |
4 files changed, 11 insertions, 11 deletions
diff --git a/README.irix b/README.irix index de06b00b9f..06819144df 100644 --- a/README.irix +++ b/README.irix @@ -25,7 +25,7 @@ or later compilers (use cc -version to check). =head2 Building 64-bit Perl in Irix Use - + sh Configure -Dcc='cc -64' -Duse64bitint This requires require a 64-bit MIPS CPU (R8000, R10000, ...) diff --git a/README.os2 b/README.os2 index e23aad9805..e02c0819ad 100644 --- a/README.os2 +++ b/README.os2 @@ -1706,7 +1706,7 @@ modules for the details on usage of these functions. Some of these functions also combine dynaloading semantic with the error-propagation semantic discussed above. - + =back =head1 Perl flavors diff --git a/pod/perlhack.pod b/pod/perlhack.pod index 8c5d213fb0..fbb7c9b456 100644 --- a/pod/perlhack.pod +++ b/pod/perlhack.pod @@ -482,8 +482,6 @@ for reference. =head2 Perlbug remote interface -=over 4 - There are three (3) remote administrative interfaces for modifying bug status, category, etc. In all cases an admin must be first registered with the Perlbug database by sending an email request to @@ -498,6 +496,8 @@ For more info on the web see http://bugs.perl.org/perlbug.cgi?req=spec +=over 4 + =item 1 http://bugs.perl.org Login via the web, (remove B<admin/> if only browsing), where interested diff --git a/pod/perlipc.pod b/pod/perlipc.pod index c75fa958d0..02f2687419 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -191,33 +191,33 @@ located in the subroutine C<code()>, which simply prints some debug info to show that it works and should be replaced with the real code. #!/usr/bin/perl -w - + use POSIX (); use FindBin (); use File::Basename (); use File::Spec::Functions; - + $|=1; - + # make the daemon cross-platform, so exec always calls the script # itself with the right path, no matter how the script was invoked. my $script = File::Basename::basename($0); my $SELF = catfile $FindBin::Bin, $script; - + # POSIX unmasks the sigprocmask properly my $sigset = POSIX::SigSet->new(); my $action = POSIX::SigAction->new('sigHUP_handler', $sigset, &POSIX::SA_NODEFER); POSIX::sigaction(&POSIX::SIGHUP, $action); - + sub sigHUP_handler { print "got SIGHUP\n"; exec($SELF, @ARGV) or die "Couldn't restart: $!\n"; } - + code(); - + sub code { print "PID: $$\n"; print "ARGV: @ARGV\n"; |