| Subject: | Bug in Hash.pm |
When using Tie::Handle::CSV, if you do not specify the key_case option,
you get an error message:
Use of uninitialized value in lc at
C:/Perl/site/lib/Tie/Handle/CSV/Hash.pm line 31, <$csv_fh> line xxxx
I have attached a patch that seems to resolve the issue in my configuration.
| Subject: | Hash.pm.patch |
--- Hash-backup.pm 2011-12-08 14:53:53.000000000 -0700
+++ Hash.pm 2011-12-08 14:53:53.000000000 -0700
@@ -28,6 +28,9 @@
},
$class;
+ if(!defined $opts->{'key_case'}) {
+ $opts->{'key_case'} = 'any';
+ }
$self->{'lc'} = lc $opts->{'key_case'} eq 'any';
return $self;
}