Changeset 12546 for trunk/gsdl/perllib/plugins/BasPlug.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/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -392 +392 @@
     }
 
-    if(!parse2::parse($args,$hashArgOptLists->{"ArgList"},$self))
+    if(parse2::parse($args,$hashArgOptLists->{"ArgList"},$self) == -1)
     {
     my $classTempClass = bless $self, $class;