commit 6a2a14b6ba05407874202b9c37099a42b18bbb2a
author Nils Diewald <nils@diewald-online.de> Wed Jun 17 20:34:24 2015 +0000
committer Nils Diewald <nils@diewald-online.de> Wed Jun 17 20:34:24 2015 +0000
tree 8453f1aa6a5c09a97598cb68847849e4d253a9ae
parent 5579179da9281a7d36230b97f569a1970536d06d

Added term escaping

script/create_example.pl

diff --git a/script/create_example.pl b/script/create_example.pl
index a532bcf..289b946 100755
--- a/script/create_example.pl
+++ b/script/create_example.pl
@@ -16,11 +16,13 @@
 		     02439
 		     05663-unbalanced
 		     07452-deep/) {
-    my $call = 'perl ' . $dir . '/prepare_index.pl -i ' . $dir . '/../examples/WPD/AAA/' . $file . ' -o ' . $dir . '/../' . $file . '.json';
-    print 'Create ' . $file . ".json\n";
-    system($call);
+  my $out = $dir . '/../' . $file . '.json';
 
-    print 'Create ' . $file . ".json.gz\n";
-    $call .= '.gz -z';
-    system($call);
+  my $call = 'perl ' . $dir . '/prepare_index.pl -i ' . $dir . '/../examples/WPD/AAA/' . $file . ' -o ' . $out;
+  print 'Create ' . $out . "\n";
+  system($call);
+
+  print 'Create ' . $out . ".gz\n";
+  $call .= '.gz -z';
+  system($call);
 };