diff options
Diffstat (limited to 't/re/pat_advanced.t')
| -rw-r--r-- | t/re/pat_advanced.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index 225cb193e8..55e1f8637a 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -2112,6 +2112,11 @@ EOP ok(1, $message); # If it didn't crash, it worked. } + { # Was looping + watchdog(2); + like("\x{00DF}", qr/[\x{1E9E}_]*/i, "\"\\x{00DF}\" =~ /[\\x{1E9E}_]*/i was looping"); + } + # !!! NOTE that tests that aren't at all likely to crash perl should go # a ways above, above these last ones. |