diff options
| author | Robin Houston <robin@cpan.org> | 2005-10-22 17:56:27 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-24 15:21:28 +0000 |
| commit | 59110972a700be97092ffbe48afc82fe1bc6445b (patch) | |
| tree | 58d5e711e85891eeee13cde99a6d5f456fb8960d /t/cmd | |
| parent | 0fbf934d321fa3e4d7b5183ff01c9b8539e5bb0f (diff) | |
| download | perl-59110972a700be97092ffbe48afc82fe1bc6445b.tar.gz | |
Re: do { EXPR for EXPR }
Message-ID: <20051022155627.GA22420@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@25829
Diffstat (limited to 't/cmd')
| -rwxr-xr-x | t/cmd/mod.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/cmd/mod.t b/t/cmd/mod.t index e2ab777246..d427d78e4c 100755 --- a/t/cmd/mod.t +++ b/t/cmd/mod.t @@ -2,7 +2,7 @@ # $RCSfile: mod.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:11 $ -print "1..12\n"; +print "1..13\n"; print "ok 1\n" if 1; print "not ok 1\n" unless 1; @@ -52,3 +52,6 @@ print "not ok 11\n" unless $x < 0; print "ok 12\n" unless $x > 0; print "not ok 12\n" if $x > 0; +# This used to cause a segfault +$x = "".("".do{"foo" for (1)}); +print "ok 13\n"; |