diff options
| author | chromatic <chromatic@wgz.org> | 2001-09-22 15:27:56 -0600 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-23 06:56:32 +0000 |
| commit | 39b99f2105ed8866b81c468bff75857b0c5187f9 (patch) | |
| tree | 4567559284e93cb5e5391db7463f3ecf154378c6 /t | |
| parent | 39e79f6b7da6190c441d02fdb038af6bdc815b1e (diff) | |
| download | perl-39b99f2105ed8866b81c468bff75857b0c5187f9.tar.gz | |
Re:
Forgotten deprecation of *glob{FILEHANDLE}?
Message-Id: <20010923033252.33085.qmail@onion.perl.org>
p4raw-id: //depot/perl@12153
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/gv.t | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -104,7 +104,16 @@ print ref *x{FORMAT} eq "FORMAT" ? "ok 21\n" : "not ok 21\n"; *x = *STDOUT; print *{*x{GLOB}} eq "*main::STDOUT" ? "ok 22\n" : "not ok 22\n"; print {*x{IO}} "ok 23\n"; -print {*x{FILEHANDLE}} "ok 24\n"; + +{ + my $warn; + local $SIG{__WARN__} = sub { + $warn .= $_[0]; + }; + my $val = *x{FILEHANDLE}; + print {*x{IO}} ($warn =~ /is deprecated/ ? "ok 24\n" : "not ok 24\n"); + +} # test if defined() doesn't create any new symbols |