Help for this page

Select Code to Download


  1. or download this
    package Bug::Destroy::System;
sub new {
...
die "Oh, no, bad thing happened!";

__END__
  2. or download this
    rtg$ perl5.8.8 system-destroy-bug.pl; echo $?
Oh, no, bad thing happened! at system-destroy-bug.pl line 15.
hello
0
  3. or download this
    ...
waitpid(24613, [{WIFEXITED(s) && WEXITSTATUS(s) == 0}], 0) = 24613
...
read(3, "", 4)                          = 0
close(3)                                = 0
exit_group(0)                           = ?
  4. or download this
    ...
wait4(12266, [{WIFSIGNALED(s) && WTERMSIG(s) == 121} | 0x65747300], 0,
+ NULL) = 12266
...
read(3, "", 4)                          = 0
close(3)                                = 0
exit(0)                                 = ?