Changeset 1515

Timestamp:

2000-09-07T11:56:51+12:00 (24 years ago)

Author:

sjboddie

Message:

Fixed bug that was introduced with -out option for classifiers

File:

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

trunk/gsdl/perllib/classify.pm

@@ -58 +58 @@
     my ($classobj);
     map { $_ = "\"$_\""; } @$classifyoption;
-    my $options = join (",", @$classifyoption);
-    eval ("\$classobj = new \$classname($options, $outhandle)");
+    my $options = join (",", @$classifyoption, $outhandle);
+    eval ("\$classobj = new \$classname($options)");
     die "$@" if $@;