From 69dc7e4bdb8e397c820e2a9d8685f676602362a6 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 22 Sep 2011 22:29:16 -0700 Subject: Move/rewrite test for Recursive call to Perl_load_module MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This test was relying on a bug in require that causes it to use what- ever I/O layers are active in require‘s *caller* when opening a file [perl #96008]. This rewrites the test using the example in ticket #75722. Since it no longer has anything to do with open.pm, it is now in t/lib/warnings/perlio. --- lib/open.t | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'lib/open.t') diff --git a/lib/open.t b/lib/open.t index 2f2a04adb4..3a5565d86a 100644 --- a/lib/open.t +++ b/lib/open.t @@ -7,7 +7,7 @@ BEGIN { require './test.pl'; } -plan 24; +plan 23; # open::import expects 'open' as its first argument, but it clashes with open() sub import { @@ -186,13 +186,6 @@ SKIP: { eval q[use Encode::Alias;use open ":std", ":locale"]; is($@, '', 'can use :std and :locale'); - - use open IN => ':non-existent'; - eval { - require Symbol; # Anything that exists but we havn't loaded - }; - like($@, qr/Can't locate Symbol|Recursive call/i, - "test for an endless loop in PerlIO_find_layer"); } { -- cgit v1.2.1