1 files changed, 15 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/run-perl-test.pl b/Examples/test-suite/perl5/run-perl-test.pl
new file mode 100755
index 0000000..106bf00
--- /dev/null
+++ b/Examples/test-suite/perl5/run-perl-test.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
+	if $running_under_some_shell;
+#!/usr/bin/perl -w
+
+use strict;
+
+my $command = shift @ARGV;
+
+my $output = `$^X $command 2>&1`;
+
+die "SWIG Perl test failed: \n\n$output\n"
+  if $?;
+
+exit(0);