From 91155c282c1f4547d9f46d8007bb7645a16d300f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 6 Aug 2007 13:38:05 +0000
Subject: (bug_handler) better test

---
 perl-install/standalone.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone.pm')

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);
     }
-- 
cgit v1.2.1