diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-04 21:47:59 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-05 13:22:50 +0000 |
| commit | c721372142d4c809beb9dbba1d6d9e8702004478 (patch) | |
| tree | 7ee4d300e3021926c98bb8fc0b7bc2e911f522f0 /t/op/magic.t | |
| parent | de5a37b24d3c405a83300dc0afd66334b549f88c (diff) | |
| download | perl-c721372142d4c809beb9dbba1d6d9e8702004478.tar.gz | |
Removing a TODO
Message-ID: <20011205024759.H14333@blackrider>
p4raw-id: //depot/perl@13471
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 4f386231fc..f9df5bdfe0 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -250,10 +250,7 @@ else { : (`echo \$__NoNeSuCh` eq "foo\n") ); } -if ($Is_VMS) { - ok(1,0,"'\$!=undef' does throw a warning"); -} -else { +{ local $SIG{'__WARN__'} = sub { print "# @_\nnot " }; $! = undef; ok 1; |