Name	Size	Mode	Actions
bin/	-	0755	rm
harness-hook/	-	0755	rm
t/	-	0755	rm
analyze_tests.pl	2072	0644	editdlrm
my_exec	387	0755	editdlrm
README	2155	0644	editdlrm
silent-harness.pl	349	0644	editdlrm
test_urls.txt	45	0644	editdlrm

#!/usr/bin/perl use strict; use warnings; my $url = qr/^http/; my $prog = shift; if ( $prog !~ $url && !-e $prog ) { die "Cannot find ($prog)"; } my @exec; if ( 't/ruby.t' eq $prog ) { push @exec => '/usr/bin/ruby', $prog; } elsif ( $prog =~ $url ) { push @exec => 'bin/test_html.pl', $prog; } else { push @exec, $prog; } exec @exec or die "Cannot (exec @exec): $!";