diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-09-23 12:48:20 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-09-23 12:48:20 +0200 |
| commit | 4cc3976697bb71e4acaa99a5cd69aee0159bbb90 (patch) | |
| tree | 3ee2c940ef781cc39330765300f0ff1a09cca279 /t/lib/warnings | |
| parent | 31f5e3239bb55c4356d7c595f3c1261faf94426e (diff) | |
| download | perl-4cc3976697bb71e4acaa99a5cd69aee0159bbb90.tar.gz | |
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]
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/perlio | 12 |
1 files changed, 0 insertions, 12 deletions
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"); |