X7ROOT File Manager
Current Path:
/usr/share/doc/perl-Test-Harness-3.28/examples
usr
/
share
/
doc
/
perl-Test-Harness-3.28
/
examples
/
📁
..
📄
README
(2.1 KB)
📄
analyze_tests.pl
(2.04 KB)
📁
bin
📁
harness-hook
📄
my_exec
(387 B)
📄
silent-harness.pl
(367 B)
📁
t
📄
test_urls.txt
(45 B)
Editing: my_exec
#!/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): $!";
Upload File
Create Folder