1#!/usr/bin/perl -w 2 3my $file = __FILE__; 4open my $fh, '<', $file or die "Can't open $file: $!"; 5<$fh>; 6(my $test_file = $file) =~ s/-open-line//; 7 8unless (my $return = do "./$test_file") { 9 warn "couldn't parse $test_file: $@" if $@; 10 warn "couldn't do $test_file: $!" unless defined $return; 11 warn "couldn't run $test_file" unless $return; 12} 13