Removing a TODO
Michael G. Schwern [Wed, 5 Dec 2001 02:47:59 +0000 (21:47 -0500)]
Message-ID: <20011205024759.H14333@blackrider>

p4raw-id: //depot/perl@13471

t/op/magic.t

index 4f38623..f9df5bd 100755 (executable)
@@ -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;