diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-10 10:10:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-10 10:10:33 +0000 |
| commit | 29ddc2a4443cff956621f7b060b68c8ff93220d4 (patch) | |
| tree | fbc9bbd2966de16ba995bd3ce9d4d61f23205c55 /lib/CGI/Cookie.pm | |
| parent | 3473cf637176ce9e9e990cc9b108dfc4974b52c4 (diff) | |
| download | perl-29ddc2a4443cff956621f7b060b68c8ff93220d4.tar.gz | |
Upgrade to CGI.pm 3.06
p4raw-id: //depot/perl@24013
Diffstat (limited to 'lib/CGI/Cookie.pm')
| -rw-r--r-- | lib/CGI/Cookie.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 27a93c55b0..3afeae22dd 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -25,9 +25,12 @@ my $MOD_PERL = 0; if (exists $ENV{MOD_PERL}) { eval "require mod_perl"; if (defined $mod_perl::VERSION) { - if ($mod_perl::VERSION >= 1.99) { + my $float = $mod_perl::VERSION; + $float = ~ s/^.+?([\d.]+).+$/$1/; + if ($float >= 1.99) { $MOD_PERL = 2; require Apache::RequestUtil; + eval "require APR::Table"; # Changing APIs? I hope not. } else { $MOD_PERL = 1; require Apache; @@ -199,7 +202,7 @@ sub value { sub domain { my $self = shift; my $domain = shift; - $self->{'domain'} = $domain if defined $domain; + $self->{'domain'} = lc $domain if defined $domain; return $self->{'domain'}; } |