Changeset 1483 for trunk/gsdl/perllib/classify.pm

Timestamp:

2000-08-31T20:05:25+12:00 (24 years ago)

Author:

sjboddie

Message:

added -out option to classifiers

File:

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

trunk/gsdl/perllib/classify.pm

@@ -37 +37 @@
     my @classify_objects = ();
     
+    my $outhandle = pop (@_);
+
     foreach $classifyoption (@$classify_list) {
 
@@ -57 +59 @@
     map { $_ = "\"$_\""; } @$classifyoption;
     my $options = join (",", @$classifyoption);
-    eval ("\$classobj = new \$classname($options)");
+    eval ("\$classobj = new \$classname($options, $outhandle)");
     die "$@" if $@;