diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 4 | ||||
| -rw-r--r-- | perl-install/standalone.pm | 2 |
2 files changed, 5 insertions, 1 deletions
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)) { |