diff --git a/Changes b/Changes index c01c485..47a3429 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,8 @@ +4.53 2021-06-03 + + [ FIX ] + - fix typo in passing of max-age to CGI::Cookie (GH #247) + 4.52 2021-05-04 [ FIX ] diff --git a/lib/CGI.pm b/lib/CGI.pm index 11ace05..0bf21fa 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -7,7 +7,7 @@ use strict; use warnings; #/; -$CGI::VERSION='4.52'; +$CGI::VERSION='4.53'; use CGI::Util qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); @@ -2793,7 +2793,7 @@ sub cookie { push(@param,'-expires'=>$expires) if $expires; push(@param,'-secure'=>$secure) if $secure; push(@param,'-httponly'=>$httponly) if $httponly; - push(@param,'-max_age'=>$max_age) if $max_age; + push(@param,'-max-age'=>$max_age) if $max_age; push(@param,'-samesite'=>$samesite) if $samesite; return CGI::Cookie->new(@param); diff --git a/lib/CGI/Carp.pm b/lib/CGI/Carp.pm index 249f345..2be0e7e 100644 --- a/lib/CGI/Carp.pm +++ b/lib/CGI/Carp.pm @@ -326,7 +326,7 @@ use File::Spec; $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '4.52'; +$CGI::Carp::VERSION = '4.53'; $CGI::Carp::CUSTOM_MSG = undef; $CGI::Carp::DIE_HANDLER = undef; $CGI::Carp::TO_BROWSER = 1; diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 5ae12b2..6f8cb76 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -3,7 +3,7 @@ package CGI::Cookie; use strict; use warnings; -our $VERSION='4.52'; +our $VERSION='4.53'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1; diff --git a/lib/CGI/File/Temp.pm b/lib/CGI/File/Temp.pm index 218e260..e8c59e8 100644 --- a/lib/CGI/File/Temp.pm +++ b/lib/CGI/File/Temp.pm @@ -3,7 +3,7 @@ # you use it directly and your code breaks horribly. package CGI::File::Temp; -$CGI::File::Temp::VERSION = '4.52'; +$CGI::File::Temp::VERSION = '4.53'; use parent File::Temp; use parent Fh; diff --git a/lib/CGI/Pretty.pm b/lib/CGI/Pretty.pm index 9372f30..49092e5 100644 --- a/lib/CGI/Pretty.pm +++ b/lib/CGI/Pretty.pm @@ -5,7 +5,7 @@ use warnings; use CGI (); -$CGI::Pretty::VERSION = '4.52'; +$CGI::Pretty::VERSION = '4.53'; $CGI::DefaultClass = __PACKAGE__; @CGI::Pretty::ISA = qw( CGI ); diff --git a/lib/CGI/Push.pm b/lib/CGI/Push.pm index 6297f55..a1f7bec 100644 --- a/lib/CGI/Push.pm +++ b/lib/CGI/Push.pm @@ -5,7 +5,7 @@ use strict; use warnings; #/; -$CGI::Push::VERSION='4.52'; +$CGI::Push::VERSION='4.53'; use CGI; use CGI::Util 'rearrange'; @ISA = ('CGI'); diff --git a/lib/CGI/Util.pm b/lib/CGI/Util.pm index d32595a..7463e0e 100644 --- a/lib/CGI/Util.pm +++ b/lib/CGI/Util.pm @@ -5,7 +5,7 @@ use strict; our @EXPORT_OK = qw(rearrange rearrange_header make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic); -our $VERSION = '4.52'; +our $VERSION = '4.53'; our $_EBCDIC = "\t" ne "\011"; diff --git a/lib/Fh.pm b/lib/Fh.pm index a7baab7..bb86f3e 100644 --- a/lib/Fh.pm +++ b/lib/Fh.pm @@ -5,6 +5,6 @@ package Fh; use strict; use warnings; -$Fh::VERSION = '4.52'; +$Fh::VERSION = '4.53'; 1;