This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Version bump and typo fix from change #28125.
authorSteve Peters <steve@fisharerojo.org>
Mon, 8 May 2006 18:46:16 +0000 (18:46 +0000)
committerSteve Peters <steve@fisharerojo.org>
Mon, 8 May 2006 18:46:16 +0000 (18:46 +0000)
p4raw-link: @28125 on //depot/perl: eb67bf7e7c7791f145451e273b36c197fb24fcb9

p4raw-id: //depot/perl@28126

lib/Text/Balanced.pm

index 383ecf6..9688de7 100644 (file)
@@ -9,7 +9,7 @@ package Text::Balanced;
 use Exporter;
 use vars qw { $VERSION @ISA %EXPORT_TAGS };
 
-$VERSION = '1.97';
+$VERSION = '1.98_01';
 @ISA           = qw ( Exporter );
                     
 %EXPORT_TAGS   = ( ALL => [ qw(
@@ -64,7 +64,7 @@ sub _succeed
        $@ = undef;
        my ($wantarray,$textref) = splice @_, 0, 2;
        my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
-       my ($startlen, $oppos) = $_[5];
+       my ($startlen) = $_[5];
         my $oppos = $_[6];
        my $remainderpos = $_[2];
        if ($wantarray)