# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@octave.org>
# Date 1420036549 18000
# Node ID 0d89b02cb45c8cd8b95bed1cd03523fc7a853693
# Parent  7d0255678d8b076d2338b92fc418aa922c4085fb
Add Perl repros

diff --git a/omg.pl b/omg.pl
new file mode 100755
--- /dev/null
+++ b/omg.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use Cwd;
+use strict;
+
+my $cwd = getcwd();
+
+exec "$cwd/ss/bin/scansetup -d wtf"
diff --git a/wtf.pl b/wtf.pl
new file mode 100755
--- /dev/null
+++ b/wtf.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use Cwd;
+use strict;
+
+my $cwd = getcwd();
+
+chdir "ss";
+
+exec "$cwd/ss/bin/scansetup -d wtf"