Change 13471 by jhi@alpha on 2001/12/05 13:22:50
Subject: [PATCH t/op/magic.t] Removing a TODO
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Wed, 5 Dec 2001 02:47:59 -0500
Message-ID: <20011205024759.H14333@blackrider>
Affected files ...
.... //depot/perl/t/op/magic.t#43 edit
Differences ...
==== //depot/perl/t/op/magic.t#43 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t.~1~ Wed Dec 5 06:30:05 2001
+++ perl/t/op/magic.t Wed Dec 5 06:30:05 2001
@@ -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;
End of Patch.
