| Subject: | Use of uninitialized value $rv in lc at /usr/share/perl5/Apache/ASP.pm line 2018. |
Hi,
running the test suite with warnings enabled (as is usually the case
nowadays, e.g. when running "prove t/*.t"), produces *lots* of
"uninitialized value $rv" warnings. This is easily fixed by the
following patch:
--- a/ASP.pm
+++ b/ASP.pm
@@ -2015,7 +2015,7 @@
sub get_dir_config {
my $rv = shift->get(shift);
- if(lc($rv) eq 'off') {
+ if(defined($rv) && lc($rv) eq 'off') {
$rv = 0; # Off always becomes 0
}
$rv;
Florian