1 files changed, 11 insertions, 0 deletions
diff --git a/test_harness_bytecode b/test_harness_bytecode
new file mode 100755
index 0000000000..d0aba85be3
--- /dev/null
+++ b/test_harness_bytecode
@@ -0,0 +1,11 @@
+#!/bin/sh
+if [ -f bperl ]; then
+    perl=./bperl
+else
+    perl="perl -Iblib/arch"
+fi
+for pl in ${1+"$@"}
+do
+    echo "*****	$pl *****"
+    $perl -MO=Bytecode,-obtest $pl && ./byteperl btest
+done