diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:22:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:22:59 +0000 |
| commit | 2f250b7c13466eb9a6f00c598de5659c46a12cab (patch) | |
| tree | 834582b40252847d650742a5305b6f04aade5e44 /lib | |
| parent | 360716c0eb85069c897d91a5cdb751e1ec86f98a (diff) | |
| download | perl-2f250b7c13466eb9a6f00c598de5659c46a12cab.tar.gz | |
Update to Text::Balanced 1.85.
p4raw-id: //depot/perl@10403
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Text/Balanced.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Text/Balanced.pm b/lib/Text/Balanced.pm index 18f95593c0..73d633241a 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 }; -$VERSION = '1.84'; +$VERSION = '1.85'; @ISA = qw ( Exporter ); %EXPORT_TAGS = ( ALL => [ qw( @@ -455,7 +455,7 @@ sub _match_variable($$) while (1) { next if _match_codeblock($textref, - qr/\s*->\s*(?:[a-zA-Z]\w+\s*)?/, + qr/\s*->\s*(?:[_a-zA-Z]\w+\s*)?/, qr/[({[]/, qr/[)}\]]/, qr/[({[]/, qr/[)}\]]/, 0); next if _match_codeblock($textref, |