Changeset 1225

Timestamp:

2000-06-21T10:27:17+12:00 (24 years ago)

Author:

sjboddie

Message:

minor change to parsargv.pm to allow for parsing of options within
base class as well as subclass

File:

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

trunk/gsdl/perllib/parsargv.pm

@@ -70 +70 @@
     my %option;
 
+    # if the last argument is the string "allow_extra_options" then options
+    # in \@_ without a corresponding SPEC will be ignored (i.e. the "$arg is
+    # not a valid option" error won't occur)\n";
+    my $allow_extra_options = pop @_;
+    if (defined ($allow_extra_options)) {
+    if ($allow_extra_options eq "allow_extra_options") {
+        $allow_extra_options = 1;
+    } else {
+        # put it back where we got it
+        push (@_, $allow_extra_options);
+        $allow_extra_options = 0;
+    }
+    } else {
+    $allow_extra_options = 0;
+    }
+
     while (($spec, $var) = splice(@_, 0, 2))
     {
@@ -126 +142 @@
         &process_arg($option{$arg}, $arglist, \$errors);
         }
-        else
+        elsif (!$allow_extra_options)
         {
         print STDERR "$arg is not a valid option.\n";