X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Fexamples%2Fmy_exec;fp=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Fexamples%2Fmy_exec;h=ea6698514bc5fa96b4cfa6e7b640b07df5426022;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/my_exec b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/my_exec
new file mode 100755
index 0000000..ea66985
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/my_exec
@@ -0,0 +1,22 @@
+#!/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): $!";