21 lines
198 B
Perl
21 lines
198 B
Perl
#!/usr/bin/perl
|
|
|
|
$ok = eval {
|
|
|
|
|
|
|
|
# while(1) {
|
|
#die "bye";
|
|
# sleep 1;
|
|
# last;
|
|
# }
|
|
|
|
|
|
|
|
#return 1;
|
|
};
|
|
|
|
print "ok: '$ok'\n";
|
|
print "died $err#\n" if(!$ok);
|
|
print "exited normally $err#\n" if ($ok);
|