SVN: toys/rsget.pl/RSGet/Processor.pm

[sparky]

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;