Changeset 27675 for main

Timestamp:

2013-06-20T16:13:56+12:00 (11 years ago)

Author:

ak19

Message:

Tidying up my previous 2 commits on this file.

File:

• main/trunk/greenstone2/perllib/classify.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify.pm

@@ -150 +150 @@
 
     # do these first so they can be overriden by user supplied options
-    (my $build_dir_re = $build_dir) =~ s@\\@\\\\@g;
-    push @newoptions, "-builddir", "$build_dir_re" if ($build_dir);
+    if ($build_dir) {
+        (my $build_dir_re = $build_dir) =~ s@\\@\\\\@g; # copy build_dir into build_dir_re and modify build_dir_re
+        push @newoptions, "-builddir", "$build_dir_re";
+    }
     push @newoptions, "-outhandle", "$outhandle" if ($outhandle);
     push @newoptions, "-verbosity", "2";