Author: sparky
Date: Fri Sep 11 18:51:48 2009
New Revision: 10563
Modified:
toys/rsget.pl/RSGet/Processor.pm
Log:
- be nicer to older perl
Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm (original)
+++ toys/rsget.pl/RSGet/Processor.pm Fri Sep 11 18:51:48 2009
@@ -237,14 +237,11 @@
pr @{$parts{perl}};
pr "1;";
- my $ret;
- {
- local $SIG{__DIE__} = undef;
- $ret = eval $processed;
- }
+ my $ret = eval $processed;
if ( $@ ) {
p "Error(s): $...@\n";
+ return undef unless $settings{logging} > 0;
my $err = $@;
return undef unless $err =~ /line \d+/;
my @p = split /\n/, $processed;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
