Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Applying patch from Ryan McGuigan to eliminate abuse of $_.

  • Loading branch information...
commit 82c197cb4ce76f08aa3a0bf1ca228a7adf897932 1 parent c054219
Brad Choate authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/Text/Textile.pm
6 lib/Text/Textile.pm
View
@@ -755,7 +755,7 @@ sub textile {
# cleanup-- restore preserved blocks
my $i = scalar(@repl);
- $out =~ s!(?:<|&lt;)textile#$i(?:>|&gt;)!$_!, $i-- while $_ = pop @repl;
+ $out =~ s!(?:<|&lt;)textile#$i(?:>|&gt;)!$_!, $i-- while local $_ = pop @repl;
# scan for br, hr tags that are not closed and close them
# only for xhtml! just the common ones -- don't fret over input
@@ -834,7 +834,7 @@ sub format_paragraph {
$result =~ s/\001/\n/g;
my $i = scalar(@repl);
- $result =~ s|<textile#$i>|$_|, $i-- while $_ = pop @repl;
+ $result =~ s|<textile#$i>|$_|, $i-- while local $_ = pop @repl;
# quotalize
if ($self->{do_quotes}) {
@@ -1046,7 +1046,7 @@ sub format_inline {
# Restore replacements done earlier:
my $i = scalar(@repl);
- $text =~ s|<textile#$i>|$_|, $i-- while $_ = pop @repl;
+ $text =~ s|<textile#$i>|$_|, $i-- while local $_ = pop @repl;
# translate entities to characters for highbit stuff since
# we're using utf8
Please sign in to comment.
Something went wrong with that request. Please try again.