diff options
author | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-29 20:24:14 -0300 |
---|---|---|
committer | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-29 20:24:14 -0300 |
commit | ba1b3511d6d6d45d7db1d076e86ad7c46d32d3d5 (patch) | |
tree | 640c2d2f98018d6352d8f648373b91b9f486bc71 /TokensV2.pm | |
parent | bcc8387a2ed68c578ea4495a0c527a86f5c4f7f2 (diff) | |
download | vital-ba1b3511d6d6d45d7db1d076e86ad7c46d32d3d5.tar.gz vital-ba1b3511d6d6d45d7db1d076e86ad7c46d32d3d5.tar.bz2 |
Renaming of a local variable $underscore due to syntax
Diffstat (limited to 'TokensV2.pm')
-rw-r--r-- | TokensV2.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/TokensV2.pm b/TokensV2.pm index 619d7df..c38ef39 100644 --- a/TokensV2.pm +++ b/TokensV2.pm @@ -38,3 +38,3 @@ sub digest_single { # $target, $regex, $eaten_left_literal_chars, $eaten_right pos($_[0]) = undef;
- goto VISITING unless $_[0] =~ /(${_[1]})/g;
+ goto VISITING unless $_[0] =~ /(${_[1]})/g; # SUCCESSFULL MATCH
my $digit = 2;
@@ -154,13 +154,13 @@ sub parse { my $regex = shift;
- while($regex =~ /^(.+)$/mg) {
- my $_ = $1;
- my $other = $_;
+ while($regex =~ /^(.+)$/mog) {
+ my $underscore = $1;
+ my $other = $underscore;
# strip out non-literal chars from MASK
- $other =~ s/\(\?:(.+?)\)\+/\1/g;
- $other =~ s/\(\?:(.+?)\)\?/\1/g;
- $other =~ s/\.\*\?//g;
+ $other =~ s/\(\?:(.+?)\)\+/\1/og;
+ $other =~ s/\(\?:(.+?)\)\?/\1/og;
+ $other =~ s/\.\*\?//og;
push @MASK, $other;
# surround wildcards with capturing group for REGEX
- s/(\.\*\?)/\(\1\)/g;
- push @REGEX, $_;
+ s/(\.\*\?)/\(\1\)/og;
+ push @REGEX, $underscore;
}
|