diff options
| author | Karl Williamson <khw@cpan.org> | 2016-03-04 13:14:30 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-03-04 13:24:20 -0700 |
| commit | ca76e4e9adfa1629d8fee4608cbeab9d9ba91ed3 (patch) | |
| tree | 7ab17c5d98d2d38719e0b224724ee0747d93ed86 /t | |
| parent | 88474c07fbd1a35a58cf4b0d6a0665044ecdb7fb (diff) | |
| download | perl-ca76e4e9adfa1629d8fee4608cbeab9d9ba91ed3.tar.gz | |
PATCH: [perl #126141]: qr/]]]]][\\/ fails to raise error
This was due to the trailing \ trying to look at the next character
without verifying that one actually existed.
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/regcomp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp index af8c06bf5c..5d1367842c 100644 --- a/t/lib/warnings/regcomp +++ b/t/lib/warnings/regcomp @@ -73,3 +73,10 @@ qr/(?[[:digit: ])/ EXPECT Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[:digit: ] <-- HERE )/ at - line 2. syntax error in (?[...]) in regex m/(?[[:digit: ])/ at - line 2. +######## +# NAME [perl #126141] +# OPTION fatal +eval {/$_/}, print "$_ ==> ", $@ || "OK!\n" for "]]]]]]]]][\\", "]]]]][\\" +EXPECT +]]]]]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]]]]]][\ <-- HERE / at - line 2. +]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]][\ <-- HERE / at - line 2. |