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