diff options
author | Yves Orton <demerphq@gmail.com> | 2007-03-08 11:20:50 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-08 15:48:53 +0000 |
commit | 67261566773bc3c68100784bb02fb0dc880102ec (patch) | |
tree | f36eaf725f9ade66a50e2891b2373ef006f99ae7 /t | |
parent | 803059618a6e90fb614193e8cdf81c79f27d8764 (diff) | |
download | perl-67261566773bc3c68100784bb02fb0dc880102ec.tar.gz |
Re: [PATCH] Tweaks so that miniperl.exe doesnt croak while building perl.exe
Message-ID: <9b18b3110703080120s41147a4fh4f4c1f9817079be3@mail.gmail.com>
p4raw-id: //depot/perl@30518
Diffstat (limited to 't')
-rw-r--r-- | t/op/regexp_namedcapture.t | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/t/op/regexp_namedcapture.t b/t/op/regexp_namedcapture.t index d2db2d762f..b9315cc2e8 100644 --- a/t/op/regexp_namedcapture.t +++ b/t/op/regexp_namedcapture.t @@ -1,13 +1,20 @@ #!./perl -# -# Tests to make sure the regexp engine doesn't run into limits too soon. -# BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } -print "1..1\n"; +# WARNING: Do not use anymodules as part of this test code. +# We could get action at a distance that would invalidate the tests. + +print "1..2\n"; + +# This tests whether glob assignment fails to load the tie. *X = *-; -print eval '*X{HASH}{X} || 1' ? "ok\n" :"not ok\n"; +'X'=~/(?<X>X)/; +print eval '*X{HASH}{X} || 1' ? "" :"not ","ok ",++$test,"\n"; + +# And since its a similar case we check %! as well +*Y = *!; +print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n"; |