Changeset 27675

Show
Ignore:
Timestamp:
20.06.2013 16:13:56 (6 years ago)
Author:
ak19
Message:

Tidying up my previous 2 commits on this file.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify.pm

    r27665 r27675  
    150150 
    151151    # do these first so they can be overriden by user supplied options 
    152     (my $build_dir_re = $build_dir) =~ s@\\@\\\\@g; 
    153     push @newoptions, "-builddir", "$build_dir_re" if ($build_dir); 
     152    if ($build_dir) { 
     153        (my $build_dir_re = $build_dir) =~ s@\\@\\\\@g; # copy build_dir into build_dir_re and modify build_dir_re 
     154        push @newoptions, "-builddir", "$build_dir_re"; 
     155    } 
    154156    push @newoptions, "-outhandle", "$outhandle" if ($outhandle); 
    155157    push @newoptions, "-verbosity", "2";