git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/examples/my_exec

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $url  = qr/^http/;
   7 my $prog = shift;
   8 if ( $prog !~ $url && !-e $prog ) {
   9     die "Cannot find ($prog)";
  10 }
  11 my @exec;
  12
  13 if ( 't/ruby.t' eq $prog ) {
  14     push @exec => '/usr/bin/ruby', $prog;
  15 }
  16 elsif ( $prog =~ $url ) {
  17     push @exec => 'bin/test_html.pl', $prog;
  18 }
  19 else {
  20     push @exec, $prog;
  21 }
  22 exec @exec or die "Cannot (exec @exec): $!";