summaryrefslogtreecommitdiff
path: root/t/op/misc.t
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-05-21 17:32:02 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-23 22:04:05 +0000
commit997999616a41239c1d6c9779baa38c6a3a23f85e (patch)
tree3e6b66ddb937c7ead846d0a6a9fd612999edb95f /t/op/misc.t
parentb4c2bf25e07c61dbbe9f49212bf3585b479358e1 (diff)
downloadperl-997999616a41239c1d6c9779baa38c6a3a23f85e.tar.gz
Re: [ID 20000716.007] \G in a m//g expression causes problems
Message-Id: <200105211532.QAA03999@crypt.compulink.co.uk> p4raw-id: //depot/perl@10187
Diffstat (limited to 't/op/misc.t')
-rwxr-xr-xt/op/misc.t5
1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t
index 885fad4ee5..c791f15d60 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -661,6 +661,11 @@ new_pmop "abcdef"; reset;
close STDERR; die;
EXPECT
########
+-w
+"x" =~ /(\G?x)?/; # core dump in 20000716.007
+EXPECT
+Quantifier unexpected on zero-length expression in regex; marked by <-- HERE in m/(\G?x)? <-- HERE / at - line 2.
+########
# Bug 20010515.004
my @h = 1 .. 10;
bad(@h);