summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2006-05-08 18:46:16 +0000
committerSteve Peters <steve@fisharerojo.org>2006-05-08 18:46:16 +0000
commit62417cc93fa623269d060d8b3800f5a56316638d (patch)
treeed1b4553adaf2d74ca34feb143821cb0ab15413b
parenteb67bf7e7c7791f145451e273b36c197fb24fcb9 (diff)
downloadperl-62417cc93fa623269d060d8b3800f5a56316638d.tar.gz
Version bump and typo fix from change #28125.
p4raw-link: @28125 on //depot/perl: eb67bf7e7c7791f145451e273b36c197fb24fcb9 p4raw-id: //depot/perl@28126
-rw-r--r--lib/Text/Balanced.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Text/Balanced.pm b/lib/Text/Balanced.pm
index 383ecf6b55..9688de7957 100644
--- a/lib/Text/Balanced.pm
+++ b/lib/Text/Balanced.pm
@@ -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)