diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-11-03 11:59:43 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-27 01:32:52 +0000 |
| commit | d7a09b413c09654b842604d673ae0943eb928a18 (patch) | |
| tree | 840b5c4d5dcf0551094408e1f06a99e7dc77105e /lib/open.t | |
| parent | 44389ee9cadafd577d385ebdd55fa3c406c4202a (diff) | |
| download | perl-d7a09b413c09654b842604d673ae0943eb928a18.tar.gz | |
Re: [perl #18203] Recursive call in PerlIO_find_layer
Message-ID: <877kfvnfcg.fsf@vran.herceg.de>
p4raw-id: //depot/perl@18188
Diffstat (limited to 'lib/open.t')
| -rw-r--r-- | lib/open.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/open.t b/lib/open.t index 50292929c8..905308dabb 100644 --- a/lib/open.t +++ b/lib/open.t @@ -7,7 +7,7 @@ BEGIN { require Config; import Config; } -use Test::More tests => 16; +use Test::More tests => 17; # open::import expects 'open' as its first argument, but it clashes with open() sub import { @@ -171,6 +171,15 @@ EOE "checking syswrite() output on :utf8 streams by reading it back in"); } +{ + use open IN => ':non-existent'; + eval { + require Anything; + }; + like($@, qr/Recursive call/i, + "test for an endless loop in PerlIO_find_layer"); +} + END { 1 while unlink "utf8"; 1 while unlink "a"; |