This test passes now, no more need for the TODO. --- t/op/magic.t 2001/12/05 07:45:55 1.1 +++ t/op/magic.t 2001/12/05 07:46:09 @@ -250,10 +250,7 @@ : (`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; -- Michael G. Schwern <schwern@pobox.com> http://www.pobox.com/~schwern/ Perl Quality Assurance <perl-qa@perl.org> Kwalitee Is Job One And it's made from all-natural baby skin, so you know it's good for the environment. http://www.goats.com/archive/000606.html