You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
1.4 KiB
21 lines
1.4 KiB
--- 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));
|
|
}
|