Changeset 232

Timestamp:

1999-04-09T09:50:32+12:00 (25 years ago)

Author:

sjboddie

Message:

Minor changes to get classify.pm to pass options to each classifier
plugin correctly

File:

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

trunk/gsdl/perllib/classify.pm

@@ -30 +30 @@
     # create the classify object
     my ($classobj);
-    eval ("\$classobj = new $classname()");
+    map { $_ = "\"$_\""; } @$classinfo;
+    my $options = join (",", @$classinfo);
+    eval ("\$classobj = new $classname($options)");
     die "$@" if $@;