From d9fed797b987de4e87ee30b9758e2169051356ce Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 10 Jul 2013 00:34:16 -0400 Subject: fix these regexes --- lib/Reply/Util.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Reply/Util.pm b/lib/Reply/Util.pm index cb33466..5f22ecd 100644 --- a/lib/Reply/Util.pm +++ b/lib/Reply/Util.pm @@ -11,7 +11,7 @@ our $varcont_rx = qr/[0-9A-Z_a-z]/; our $ident_rx = qr/${varstart_rx}${varcont_rx}*/; our $sigil_rx = qr/[\$\@\%\&\*]/; our $varname_rx = qr/$sigil_rx\s*$ident_rx/; -our $fq_ident_rx = qr/$ident_rx(?:::$varcont_rx+)?/; -our $fq_varname_rx = qr/$varname_rx(?:::$varcont_rx+)?/; +our $fq_ident_rx = qr/$ident_rx(?:::$varcont_rx+)*/; +our $fq_varname_rx = qr/$varname_rx(?:::$varcont_rx+)*/; 1; -- cgit v1.2.3-54-g00ecf