Change 13527 by jhi@alpha on 2001/12/07 22:31:22
Subject: [PATCH t/op/magic.t] Puut... The TODO... Beck!
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 7 Dec 2001 17:28:57 -0500
Message-ID: <20011207222857.GI23210@blackrider>
Affected files ...
.... //depot/perl/t/op/magic.t#44 edit
Differences ...
==== //depot/perl/t/op/magic.t#44 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t.~1~ Fri Dec 7 15:45:05 2001
+++ perl/t/op/magic.t Fri Dec 7 15:45:05 2001
@@ -134,9 +134,9 @@
}
# $?, $@, $$
-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 @@
}
{
- 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
End of Patch.
