From: Dave Rolsky <autarch@urth.org>
Date: Tue, 27 Sep 2011 15:10:41 +0000 (-0500)
Subject: Replace bizarre split and join (that warns on undef values) with a simple regex
X-Git-Tag: 5.90003~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=b7e111a509857ca1b36a072a617420447adc10f4

Replace bizarre split and join (that warns on undef values) with a simple regex
---

diff --git a/t/live_fork.t b/t/live_fork.t
index c5785a3..9c053e3 100644
--- a/t/live_fork.t
+++ b/t/live_fork.t
@@ -60,8 +60,7 @@ sub result_ok {
     unlike( $result, qr/FATAL/, 'result is not an error' )
         or return;
 
-    my @result = split /$/m, $result;
-    $result = join q{}, @result[-4..-1];
+    $result =~ s/\r\n|\r/\n/g;
 
     return eval { Load($result) };
 }