Changeset 18441 for gsdl/trunk/perllib/cfgread.pm
- Timestamp:
- 2009-02-01T14:36:22+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cfgread.pm
r16929 r18441 141 141 my ($filename, $data, $stringexp, $arrayexp, $hashexp, $arrayarrayexp, 142 142 $hashhashexp) = @_; 143 143 144 144 if (open (COLCFG, ">$filename")) { 145 145 foreach my $key (sort(keys(%$data))) {
Note:
See TracChangeset
for help on using the changeset viewer.