diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-08-06 13:38:05 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-06 13:38:05 +0000 |
commit | 91155c282c1f4547d9f46d8007bb7645a16d300f (patch) | |
tree | 9342b115f5c84dbfd529ae2e3cef0a0090a455f7 /perl-install/standalone.pm | |
parent | b841f2ace37096d420551a71bfc80882abbb5d65 (diff) | |
download | drakx-91155c282c1f4547d9f46d8007bb7645a16d300f.tar drakx-91155c282c1f4547d9f46d8007bb7645a16d300f.tar.gz drakx-91155c282c1f4547d9f46d8007bb7645a16d300f.tar.bz2 drakx-91155c282c1f4547d9f46d8007bb7645a16d300f.tar.xz drakx-91155c282c1f4547d9f46d8007bb7645a16d300f.zip |
(bug_handler) better test
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 d2035e469..f82c2509c 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -192,7 +192,7 @@ sub bug_handler { # exceptions in eval are OK: return if $error && $^S; # exceptions with "\n" are normal ways to quit: - if ($error !~ /at line/) { + if ($error eq MDK::Common::String::formatError($error)) { warn $error; exit(255); } |