diff options
| author | Jeffrey Friedl <jfriedl@regex.info> | 2002-03-31 17:32:34 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 20:33:06 +0000 |
| commit | 7542d387848630df0b7711b8ee4db435f5898ca6 (patch) | |
| tree | bace44307ea3f6a826cf5a5da34d9a1f3491a8ee /lib/Pod/Html.pm | |
| parent | 2050461dc444b8f58d7a819cb62c677b08fa75aa (diff) | |
| download | perl-7542d387848630df0b7711b8ee4db435f5898ca6.tar.gz | |
getting rid of a few superfluous $&/$`
Message-Id: <200204010932.g319WY886939@ventrue.corp.yahoo.com>
(with more-backward-compat than just using @- and @+, also by Jeffrey)
(The version number of Text::Balanced intentionally not
increased since Damian will make a new release after 5.8)
p4raw-id: //depot/perl@15668
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 1ae81c9e60..179b80bb25 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1255,9 +1255,9 @@ sub process_pre { $rest = $$text; # insert spaces in place of tabs - $rest =~ s#.*# - my $line = $&; - 1 while $line =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e; + $rest =~ s#(.+)# + my $line = $1; + 1 while $line =~ s/(\t+)/' ' x ((length($1) * 8) - $-[0] % 8)/e; $line; #eg; |