Changeset 15889

Show
Ignore:
Timestamp:
06.06.2008 10:57:28 (11 years ago)
Author:
mdewsnip
Message:

Added "use strict", and fixed resulting problems.

Location:
gsdl/trunk/perllib
Files:
4 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/arcinfo.pm

    r15073 r15889  
    3232# a file in the archives directory and an OID. 
    3333 
    34  
    3534package arcinfo; 
    3635 
     
    4039use constant INFO_FILE_INDEX    => 0; 
    4140use constant INFO_STATUS_INDEX  => 1; 
     41 
     42use strict; 
     43 
    4244 
    4345# File format read in: OID <tab> Filename <tab> Optional-Index-Status 
     
    207209    my @list = (); 
    208210 
    209     foreach $OID_order (@sorted_order) { 
     211    foreach my $OID_order (@sorted_order) { 
    210212    my $OID = $OID_order->[ORDER_OID_INDEX]; 
    211213    my $OID_info = $self->{'info'}->{$OID}; 
  • gsdl/trunk/perllib/cfgread.pm

    r8890 r15889  
    2727 
    2828package cfgread; 
     29 
     30use strict; 
    2931 
    3032 
     
    141143     
    142144    if (open (COLCFG, ">$filename")) { 
    143     foreach $key (sort(keys(%$data))) { 
     145    foreach my $key (sort(keys(%$data))) { 
    144146        if ($key =~ /$stringexp/) { 
    145147        &write_cfg_line ('COLCFG', [$key, $data->{$key}]); 
     
    147149        &write_cfg_line ('COLCFG', [$key, @{$data->{$key}}]); 
    148150        } elsif ($key =~ /$hashexp/) { 
    149         foreach $k (keys (%{$data->{$key}})) { 
     151        foreach my $k (keys (%{$data->{$key}})) { 
    150152            &write_cfg_line ('COLCFG', [$key, $k, $data->{$key}->{$k}]); 
    151153        } 
    152154        } elsif ($key =~ /$arrayarrayexp/) { 
    153         foreach $k (@{$data->{$key}}) { 
     155        foreach my $k (@{$data->{$key}}) { 
    154156            &write_cfg_line ('COLCFG', [$key, @$k]); 
    155157        } 
    156158        } elsif ($key =~ /$hashhashexp/) { 
    157         foreach $k (keys (%{$data->{$key}})) { 
    158             foreach $p (keys (%{$data->{$key}->{$k}})) { 
     159        foreach my $k (keys (%{$data->{$key}})) { 
     160            foreach my $p (keys (%{$data->{$key}->{$k}})) { 
    159161            if ($p =~ /default/) { 
    160162                &write_cfg_line ('COLCFG',  
  • gsdl/trunk/perllib/giget.pm

    r10112 r15889  
     1use strict; 
     2 
    13 
    24sub readin_html  
     
    245247    my $nextpage_url = gi_query_url($search_terms); 
    246248     
    247     $respage_fname = "$output_dir/respage1.html"; 
     249    my $respage_fname = "$output_dir/respage1.html"; 
    248250    get_gi_page($gi_base,$nextpage_url,$respage_fname); 
    249251     
  • gsdl/trunk/perllib/iso639.pm

    r14114 r15889  
    33package iso639; 
    44 
    5 %fromiso639 = ( 
     5use strict; 
     6 
     7my %fromiso639 = ( 
    68           'aa' => 'Afar', 
    79           'ab' => 'Abkhazian', 
     
    172174           ); 
    173175 
    174 %toiso639 = ( 
     176my %toiso639 = ( 
    175177         'afar' => 'aa', 
    176178         'abkhazian' => 'ab',