Changeset 1954 for trunk/gsdl/perllib/parsargv.pm

Timestamp:

2001-02-13T10:58:26+13:00 (23 years ago)

Author:

jmt14

Message:

* empty log message *

File:

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

trunk/gsdl/perllib/parsargv.pm

@@ -73 +73 @@
 
     my @rest = @_;
+
 
     # if the last argument is the string "allow_extra_options" then options
@@ -92 +93 @@
     while (($spec, $var) = splice(@rest, 0, 2))
         {
+      
     die "Variable for $spec is not a valid type."
         unless ref($var) eq 'SCALAR' || ref($var) eq 'ARRAY';
@@ -107 +109 @@
     my ($name, $regex, $default) = split(/$delimiter/, $spec, 3);
     
+    
     if ($name)
-    {
+    {   
         if ($default && $default !~ /$regex/)
         {
@@ -225 +228 @@
 
 1;
+
+
+
+
+
+
+
+