From c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 29 Feb 2008 15:28:11 +0000 Subject: - drakbug: o do not catch exception if $^S is undef (occurs when "eval { require foo }" and foo.pm do "use not_available") --- perl-install/NEWS | 4 ++++ perl-install/standalone.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 5b91240d6..e489edb43 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- drakbug: + o do not catch exception if $^S is undef + (occurs when "eval { require foo }" and foo.pm do "use not_available") + Version 10.6.25 - 28 February 2008 - harddrake: diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 07c251daa..994ff7edc 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -193,7 +193,7 @@ sub bug_handler { my ($error, $is_signal) = @_; # exceptions in eval are OK: - return if $error && $^S && !$is_signal; + return if $error && $^S ne '0' && !$is_signal; # exceptions with "\n" are normal ways to quit: if (!$is_signal && $error eq MDK::Common::String::formatError($error)) { -- cgit v1.2.1