From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 17:28:57 +0000 (-0500)
Subject: Puut... The TODO... Beck!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a45269de422fcc1b312e861208eb2dbc172438fb;p=p5sagit%2Fp5-mst-13.2.git

Puut... The TODO... Beck!
Message-ID: <20011207222857.GI23210@blackrider>

p4raw-id: //depot/perl@13527
---

diff --git a/t/op/magic.t b/t/op/magic.t
index f9df5bd..ede0b8b 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -134,9 +134,9 @@ ok((keys %h)[0] eq "foo\034bar", (keys %h)[0]);
 }
 
 # $?, $@, $$
-system qq[$PERL -e "exit(0)"];
+system qq[$PERL "-I../lib" -e "use vmsish qw(hushed); exit(0)"];
 ok $? == 0, $?;
-system qq[$PERL -e "exit(1)"];
+system qq[$PERL "-I../lib" -e "use vmsish qw(hushed); exit(1)"];
 ok $? != 0, $?;
 
 eval { die "foo\n" };
@@ -251,9 +251,11 @@ else {
 }
 
 {
-    local $SIG{'__WARN__'} = sub { print "# @_\nnot " };
+    my $ok = 1;
+    my $warn = '';
+    local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; };
     $! = undef;
-    ok 1;
+    ok($ok, $warn, $Is_VMS ? "'\$!=undef' does throw a warning" : '');
 }
 
 # test case-insignificance of %ENV (these tests must be enabled only