Changeset 27675


Ignore:
Timestamp:
06/20/13 16:13:56 (8 years ago)
Author:
ak19
Message:

Tidying up my previous 2 commits on this file.

File:
1 edited

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";
Note: See TracChangeset for help on using the changeset viewer.