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

Timestamp:

2004-12-01T16:14:11+13:00 (19 years ago)

Author:

kjdon

Message:

added some changes made by Emanuel Dejanu (Simple Words)

File:

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

trunk/gsdl/perllib/parsargv.pm

@@ -66 +66 @@
 
  
- sub parse
+sub parse
 {
     my $arglist = shift;
@@ -95 +95 @@
       
     die "Variable for $spec is not a valid type."
-        unless ref($var) eq 'SCALAR' || ref($var) eq 'ARRAY';
+        unless ref($var) eq 'SCALAR' || ref($var) eq 'ARRAY'
+        || (ref($var) eq 'REF' && ref($$var) eq 'GLOB');
 
     my $delimiter;