Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / examples / my_exec

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 (executable)
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): $!";