diff options
Diffstat (limited to 'www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch')
| -rw-r--r-- | www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch b/www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch new file mode 100644 index 000000000000..ba1195ae9160 --- /dev/null +++ b/www-apps/cvsweb/files/cvsweb-3.0.6-perl518.patch @@ -0,0 +1,25 @@ +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 { |