diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-29 15:28:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-29 15:28:11 +0000 |
| commit | c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904 (patch) | |
| tree | b00411ab295e89861625cb5b11930ea283957bbf /perl-install/standalone.pm | |
| parent | 3ee9e4868202942a41fd801ca8031f203f0ce71e (diff) | |
| download | drakx-c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904.tar drakx-c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904.tar.gz drakx-c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904.tar.bz2 drakx-c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904.tar.xz drakx-c3ab64f505b1c2b005e7f2ab9f0e54bf2d286904.zip | |
- drakbug:
o do not catch exception if $^S is undef
(occurs when "eval { require foo }" and foo.pm do "use not_available")
Diffstat (limited to 'perl-install/standalone.pm')
| -rw-r--r-- | perl-install/standalone.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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)) { |