Permalink
Browse files

synched to bleadperl

  • Loading branch information...
lstein
lstein committed Mar 27, 2008
1 parent 1d0149b commit 945edccf05b89e14bbc46c4f4cd0a729164ad9b4
Showing with 4 additions and 4 deletions.
  1. +2 −2 CGI.pm
  2. +2 −2 CGI/Carp.pm
View
4 CGI.pm
@@ -18,7 +18,7 @@ use Carp 'croak';
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.249 2008-03-25 15:17:55 lstein Exp $';
+$CGI::revision = '$Id: CGI.pm,v 1.250 2008-03-27 14:24:25 lstein Exp $';
$CGI::VERSION='3.35';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
@@ -3300,7 +3300,7 @@ sub previous_or_default {
(ref($defaults) eq 'ARRAY')) {
$selected{$_}++ for @{$defaults};
} else {
- $selected{$defaults}++;
+ $selected{$defaults}++ if defined($defaults);
}
return %selected;
View
@@ -275,7 +275,7 @@ non-overridden program name
fatalsToBrowser() output.
1.23 ineval() now checks both $^S and inspects the message for the "eval" pattern
- (hack alert!) in order to accomodate various combinations of Perl and
+ (hack alert!) in order to accommodate various combinations of Perl and
mod_perl.
1.24 Patch from Scott Gifford (sgifford@suspectclass.com): Add support
@@ -323,7 +323,7 @@ use File::Spec;
$main::SIG{__WARN__}=\&CGI::Carp::warn;
-$CGI::Carp::VERSION = '1.30';
+$CGI::Carp::VERSION = '1.30_01';
$CGI::Carp::CUSTOM_MSG = undef;
$CGI::Carp::DIE_HANDLER = undef;

0 comments on commit 945edcc

Please sign in to comment.