Changeset 26449 for main/trunk/greenstone2/perllib
- Timestamp:
- 2012-11-07T16:17:13+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cfgread.pm
r24586 r26449 209 209 } elsif ($key =~ /$arrayexp/) { 210 210 &write_cfg_line ('COLCFG', [$key, @{$data->{$key}}]); 211 } elsif ( $key =~ /$hashexp/) {211 } elsif (defined $hashexp && $key =~ /$hashexp/) { 212 212 foreach my $k (keys (%{$data->{$key}})) { 213 213 &write_cfg_line ('COLCFG', [$key, $k, $data->{$key}->{$k}]); 214 214 } 215 } elsif ( $key =~ /$arrayarrayexp/) {215 } elsif (defined $arrayarrayexp && $key =~ /$arrayarrayexp/) { 216 216 foreach my $k (@{$data->{$key}}) { 217 217 &write_cfg_line ('COLCFG', [$key, @$k]); 218 218 } 219 } elsif ( $key =~ /$hashhashexp/) {219 } elsif (defined $hashhashexp && $key =~ /$hashhashexp/) { 220 220 foreach my $k (keys (%{$data->{$key}})) { 221 221 foreach my $p (keys (%{$data->{$key}->{$k}})) {
Note:
See TracChangeset
for help on using the changeset viewer.