X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flive_fork.t;h=3a2dc3c3e9fa752746dbca8c1c419060c818377c;hp=c5785a3000e703cb26b11e74be05d8974c9749b1;hb=82010ea176741c7a4f2baf3f6f27377b1d9f6b15;hpb=ba9ee3c8d5672fc1213bcdffe1fdc7f8e05beecd

diff --git a/t/live_fork.t b/t/live_fork.t
index c5785a3..3a2dc3c 100644
--- a/t/live_fork.t
+++ b/t/live_fork.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 # live_fork.t
 # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
 
@@ -60,8 +59,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) };
 }