From 4cc3976697bb71e4acaa99a5cd69aee0159bbb90 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Sep 2011 12:48:20 +0200
Subject: Move the test for recursive call to Perl_load_module to t/io/perlio.t

It's a croak(), not a warning, so doesn't really belong in lib/warnings.t
[This also implicitly fixes the wrong expected output of 69dc7e4bdb8e397c]
---
 t/lib/warnings/perlio | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 't/lib/warnings')

diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio
index d90453b9c8..0ccc5a884f 100644
--- a/t/lib/warnings/perlio
+++ b/t/lib/warnings/perlio
@@ -24,18 +24,6 @@ Unknown PerlIO layer \"%.*s\"
 
 __END__
 
-# perlio [PerlIO_find_layer]
-unshift @INC, sub {
-    return undef unless caller eq "main";
-    open my $fh, "<", \1;
-    $fh;
-};
-require Symbol; # doesn't matter whether it exists or no
-EXPECT
-Recursive call to Perl_load_module in PerlIO_find_layer at - line 5.
-BEGIN failed--compilation aborted.
-########
-
 # perlio [PerlIO_parse_layers]
 no warnings 'layer';
 open(F, ">:-aa", "bb");
-- 
cgit v1.2.1