Changeset 12546 for trunk/gsdl/perllib/classify/BasClas.pm

Timestamp:

2006-08-24T16:19:13+12:00 (18 years ago)

Author:

kjdon

Message:

changed parse2::parse so that it returns -1 on error, 0 on success, or if allow_extra_options is specified, then on success returns the number of args left over.

File:

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

trunk/gsdl/perllib/classify/BasClas.pm

@@ -263 +263 @@
 
     # general options available to all classifiers
-    if(!parse2::parse($args,$hashArgOptLists->{"ArgList"},$self))
+    if(parse2::parse($args,$hashArgOptLists->{"ArgList"},$self) == -1)
     {
     #print out the text usage of this classifier.