Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    warn "TRAPPED: $@" if $@;
    last unless @ids;
}

Select or download this

$ pm_1146365_multi_eval.pl
TRAPPED: 3 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: 2 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: 1 at ./pm_1146365_multi_eval.pl line 12.
TRAPPED: Can't open 'pm_1146365_nonexistent_file' for reading: 'No suc
+h file or directory' at ./pm_1146365_multi_eval.pl line 13