summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-06 13:38:05 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-06 13:38:05 +0000
commit91155c282c1f4547d9f46d8007bb7645a16d300f (patch)
tree9342b115f5c84dbfd529ae2e3cef0a0090a455f7 /perl-install
parentb841f2ace37096d420551a71bfc80882abbb5d65 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/standalone.pm2
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);
}