changeset 1:0d89b02cb45c default tip

Add Perl repros
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Wed, 31 Dec 2014 09:35:49 -0500
parents 7d0255678d8b
children
files omg.pl wtf.pl
diffstat 2 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
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"
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"