-#!/usr/bin/perl
# live_fork.t
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
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) };
}