Help for this page

Select Code to Download


  1. or download this
    use Devel::Peek;
1 if $?;  # mg_get
Dump($?);
  2. or download this
    system($cmd);
if ($? == -1) {
...
} elsif ($? >> 8) {
    die("Command exited with error ", ($? >> 8), "\n");
}
  3. or download this
    my $rv = system($cmd);
if ($rv == -1) {
...
} elsif ($rv >> 8) {
    die("Command exited with error ", ($rv >> 8), "\n");
}