diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 00:34:16 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 00:34:16 -0400 |
commit | d9fed797b987de4e87ee30b9758e2169051356ce (patch) | |
tree | 77e56ff87ebde44db4b63d1b1524c6b206ec1b7c | |
parent | b36ae7f2a1b937a8cac39841d187b3cd2e5c1bb9 (diff) | |
download | reply-d9fed797b987de4e87ee30b9758e2169051356ce.tar.gz reply-d9fed797b987de4e87ee30b9758e2169051356ce.zip |
fix these regexes
-rw-r--r-- | lib/Reply/Util.pm | 4 |
1 files 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; |