From 3bf5a68b733eb14561190825c0d51d5c3f011a47 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 6 Feb 2011 22:42:27 -0700
Subject: [PATCH] Make this work better.

---
 bin/auto | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/bin/auto b/bin/auto
index fc46f75..c3f5345 100755
--- a/bin/auto
+++ b/bin/auto
@@ -486,8 +486,10 @@ sub signal_hup
 # __WARN__
 sub signal_perlwarn
 {
-    alog 'Perl Warning: '.$_[0];
-    warn $_[0] if $DEBUG;
+    my ($warnmsg) = @_;
+    $warnmsg =~ s/(\n|\r)//xsmg;
+    alog 'Perl Warning: '.$warnmsg;
+    println 'Perl Warning: '.$warnmsg if $DEBUG;
     return 1;
 }
 
@@ -502,5 +504,6 @@ sub signal_perldie
 		unlink "$Bin/auto.pid";
 	}
 	sleep 1;
-    die 'FATAL: '.$_[0];
+    println 'FATAL: '.$_[0];
+    exit;
 }