=head2 Building 64-bit Perl in Irix
Use
-
+
sh Configure -Dcc='cc -64' -Duse64bitint
This requires require a 64-bit MIPS CPU (R8000, R10000, ...)
Some of these functions also combine dynaloading semantic with the
error-propagation semantic discussed above.
-
+
=back
=head1 Perl flavors
=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
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
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";