dilfridge 14/12/07 17:17:59 Added: code2html-0.9.1-scalar.patch Log: Fix warnings with newer Perl, bug 523610 (Portage version: 2.2.14/cvs/Linux x86_64, signed Manifest commit with key 84AD142F)
Revision Changes Path 1.1 app-text/code2html/files/code2html-0.9.1-scalar.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-text/code2html/files/code2html-0.9.1-scalar.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-text/code2html/files/code2html-0.9.1-scalar.patch?rev=1.1&content-type=text/plain Index: code2html-0.9.1-scalar.patch =================================================================== --- code2html.orig 2002-01-12 22:17:02.000000000 +0100 +++ code2html 2014-09-24 13:52:52.000000000 +0200 @@ -1357,7 +1357,7 @@ my @lines = split ( /\n/, $_[0] ); my $nr = 0; - my $lengthofnr = length(@lines); + my $lengthofnr = length(scalar(@lines)); my $format = qq{<a name="$_[1]line%u">%${lengthofnr}u</a> %s\n} ; join ('', map ( {$nr++; sprintf ( $format , $nr, $nr, $_ )} @lines)); }, @@ -1367,7 +1367,7 @@ my @lines = split ( /\n/, $_[0] ); my $nr = 0; - my $lengthofnr = length(@lines); + my $lengthofnr = length(scalar(@lines)); my $format = qq{<a name="$_[1]line%u" href="#$_[1]line%u">%$ {lengthofnr}u</a> %s\n}; join ('', map ( {$nr++; sprintf ( $format , $nr, $nr, $nr, $_ )} @lines)); }
