remove unused dep HTTP::Request::AsCGI

[catagits/Catalyst-Runtime.git] / t / live_fork.t

diff --git a/t/live_fork.t b/t/live_fork.t
index c5785a3..3a2dc3c 100644 (file)
--- 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) };
 }