1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index c20381911..d2035e469 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -191,6 +191,11 @@ sub bug_handler {
     my ($error) = @_;
     # exceptions in eval are OK:
     return if $error && $^S;
+    # exceptions with "\n" are normal ways to quit:
+    if ($error !~ /at line/) {
+        warn $error;
+        exit(255);
+    }
     # we want the full backtrace:
     $error .= common::backtrace() if $error;
     my $progname = $0;