summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS4
-rw-r--r--perl-install/standalone.pm2
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)) {