dilfridge 14/09/11 08:26:50 Added: cvsweb-3.0.6-perl518.patch Log: Revision bump to add Perl 5.18 compatibility patch, bug 521824 (Portage version: 2.2.12/cvs/Linux x86_64, signed Manifest commit with key 84AD142F)
Revision Changes Path 1.1 www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch?rev=1.1&content-type=text/plain Index: cvsweb-3.0.6-perl518.patch =================================================================== Source: http://cvsweb.netbsd.org/bsdweb.cgi/pkgsrc/www/cvsweb/patches/patch-cvsweb.cgi.diff?r1=1.1.2.1&r2=1.1.2.2&f=h Fix warnings from newer perl versions --- cvsweb.cgi.orig 2013-07-30 12:49:33.268655300 +0000 +++ cvsweb.cgi @@ -1192,7 +1192,7 @@ EOF <legend>General options</legend> <input type="hidden" name="copt" value="1" /> EOF - for my $v qw(hidecvsroot hidenonreadable) { + for my $v (qw(hidecvsroot hidenonreadable)) { printf(qq{<input type="hidden" name="%s" value="%s" />\n}, $v, $input{$v} || 0); } @@ -2951,7 +2951,7 @@ sub printLog($$$;$$) print "<br />\n"; print '<i>'; - if (defined @mytz) { + if (@mytz) { my ($est) = $mytz[(localtime($date{$_}))[8]]; print scalar localtime($date{$_}), " $est</i> ("; } else {
