Changeset 6964

Timestamp:

2004-03-08T13:58:03+13:00 (20 years ago)

Author:

kjdon

Message:

put the program difened options before the user defined ones in load_classifiers

File:

• trunk/gsdl/perllib/classify.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify.pm

@@ -70 +70 @@
     my ($opt, $key, $value);
     my @newoptions;
+
+    # do these first so they can be overriden by user supplied options
+    push @newoptions, "-builddir", "$build_dir" if ($build_dir);
+    push @newoptions, "-outhandle", "$outhandle" if ($outhandle);
+    push @newoptions, "-verbosity", "2";
+
     foreach $opt (@$classifyoption) {
         if ($opt =~ /^(\w+)=(.*)$/) {
@@ -77 +83 @@
         }
     }
-    push @newoptions, "-builddir", "$build_dir" if ($build_dir);
-    push @newoptions, "-outhandle", "$outhandle" if ($outhandle);
-    push @newoptions, "-verbosity", "2";
 
     map { $_ = "\"$_\""; } @newoptions;