From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Jun 2001 12:37:36 +0000 (+0000)
Subject: One more test for $^S.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65b8483b5f20b88f3e36de22e5236706cd8b1e3b;p=p5sagit%2Fp5-mst-13.2.git

One more test for $^S.

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

diff --git a/t/op/magic.t b/t/op/magic.t
index 80b23f0..c8b2d1c 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -27,7 +27,7 @@ $Is_os2   = $^O eq 'os2';
 $Is_Cygwin   = $^O eq 'cygwin';
 $PERL = ($Is_MSWin32 ? '.\perl' : './perl');
 
-print "1..40\n";
+print "1..41\n";
 
 eval '$ENV{"FOO"} = "hi there";';	# check that ENV is inited inside eval
 if ($Is_MSWin32) { ok 1, `cmd /x /c set FOO` eq "FOO=hi there\n"; }
@@ -249,4 +249,5 @@ my %errs = %{"!"}; # Cause Errno.pm to be loaded at run-time
 ok 38, ${"!"}{ENOENT};
 
 ok 39, $^S == 0;
-eval { ok 40, $^S };
+eval { ok 40, $^S == 1 };
+ok 41, $^S == 0;