Changeset 7904 for trunk/gsdl/perllib/arcinfo.pm

Timestamp:

2004-08-06T16:38:44+12:00 (20 years ago)

Author:

chi

Message:

Minor changes to layout of code.

File:

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

trunk/gsdl/perllib/arcinfo.pm

@@ -48 +48 @@
 
     $self->{'info'} = {};
-
+ 
     if (-e $filename) {
     open (INFILE, $filename) || 
@@ -61 +61 @@
         }
     }
-
     close (INFILE);
     }
@@ -74 +73 @@
     open (OUTFILE, ">$filename") || 
     die "arcinfo::save_info couldn't write $filename\n";
-
+  
     foreach $info (@{$self->get_OID_list()}) {
     if (defined $info) {
@@ -80 +79 @@
     }
     }
-    
     close (OUTFILE);
 }