diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-21 10:24:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-21 10:24:05 +0000 |
| commit | 0c793b6f00b278111ed6958bc7f2b834f3da392c (patch) | |
| tree | 480df403b0a0d644b59c41485052319a16b354cc /lib/Text/Balanced.pm | |
| parent | 8718f9a1b30f0e2dc3598c478b0edf7f5b51c660 (diff) | |
| download | perl-0c793b6f00b278111ed6958bc7f2b834f3da392c.tar.gz | |
Upgrade to Text::Balanced 2.0.0
p4raw-id: //depot/perl@29609
Diffstat (limited to 'lib/Text/Balanced.pm')
| -rw-r--r-- | lib/Text/Balanced.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Text/Balanced.pm b/lib/Text/Balanced.pm index 49d4217cc3..7316cc83ff 100644 --- a/lib/Text/Balanced.pm +++ b/lib/Text/Balanced.pm @@ -10,7 +10,7 @@ use Exporter; use SelfLoader; use vars qw { $VERSION @ISA %EXPORT_TAGS }; -use version; $VERSION = qv('1.99.1_1'); +use version; $VERSION = qv('2.0.0'); @ISA = qw ( Exporter ); %EXPORT_TAGS = ( ALL => [ qw( @@ -793,13 +793,15 @@ sub _match_quotelike($$$$) # ($textref, $prepat, $allow_raw_match) $rdel1 =~ tr/[({</])}>/; defined(_match_bracketed($textref,"",$ldel1,"","",$rdel1)) || do { pos $$textref = $startpos; return }; + $ld2pos = pos($$textref); + $rd1pos = $ld2pos-1; } else { - $$textref =~ /$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs + $$textref =~ /\G$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs || do { pos $$textref = $startpos; return }; + $ld2pos = $rd1pos = pos($$textref)-1; } - $ld2pos = $rd1pos = pos($$textref)-1; my $second_arg = $op =~ /s|tr|y/ ? 1 : 0; if ($second_arg) |