diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-09-22 22:29:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-22 22:29:16 -0700 |
| commit | 69dc7e4bdb8e397c820e2a9d8685f676602362a6 (patch) | |
| tree | 65a937ecc6bea8a15c8a3cd7ae71b18201ee9c0c /lib/open.t | |
| parent | 0f8d4b5ec2b14a817d302f2a3e7e311fd574a6bf (diff) | |
| download | perl-69dc7e4bdb8e397c820e2a9d8685f676602362a6.tar.gz | |
Move/rewrite test for Recursive call to Perl_load_module
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.
Diffstat (limited to 'lib/open.t')
| -rw-r--r-- | lib/open.t | 9 |
1 files changed, 1 insertions, 8 deletions
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"); } { |