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

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

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

trunk/gsdl/perllib/classify.pm

@@ -58 +58 @@
     my ($classobj);
     my $options = "-gsdlinfo";
-
-    eval ("\$classobj = new \$classifier($options)");
+    eval ("\$classobj = new \$classifier([],[$options])");
     die "$@" if $@;
 
@@ -112 +111 @@
     my $options .= join (",", @newoptions);
 
-    eval ("\$classobj = new \$classname($options)");
+
+    eval ("\$classobj = new \$classname([],[$options])");
     die "$@" if $@;