Changeset 12328

Timestamp:

2006-07-28T14:50:51+12:00 (18 years ago)

Author:

shaoqun

Message:

added code to guard undefined value

File:

• trunk/gsdl/perllib/arcinfo.pm (modified) (1 diff)

trunk/gsdl/perllib/arcinfo.pm

@@ -63 +63 @@
     $self->{'info'} = {};
  
-    if (-e $filename) {
+    if (defined $filename && -e $filename) {
     open (INFILE, $filename) || 
         die "arcinfo::load_info couldn't read $filename\n";