Changeset 12546 for trunk/gsdl/perllib/plugouts/BasPlugout.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/plugouts/BasPlugout.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugouts/BasPlugout.pm

@@ -34 +34 @@
 use gsprintf 'gsprintf';
 use printusage;
+use parse2;
 
 # suppress the annoying "subroutine redefined" warning that various
@@ -111 +112 @@
     delete $self->{"info_only"};
     
-    if(!parse2::parse($args,$hashArgOptLists->{"ArgList"},$self))
+    if(parse2::parse($args,$hashArgOptLists->{"ArgList"},$self) == -1)
     {
     my $classTempClass = bless $self, $class;