From: Tony Cook <tony@develop-help.com>
Date: Mon, 31 May 2010 23:50:08 +0000 (+1000)
Subject: move the fresh_perl() tests above the environment tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=065144c63ee2795acbc962d225b0a3f8d7967ae3;p=p5sagit%2Fp5-mst-13.2.git

move the fresh_perl() tests above the environment tests

the environment tests were resetting environment variables useful for
running fresh perls, like LD_LIBRARY_PATH.
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 7e8ab8c..f5f6205 100644
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -279,6 +279,19 @@ is $^O, $orig_osname, 'Assigning $^I does not clobber $^O';
 }
 $^O = $orig_osname;
 
+{
+    #RT #72422
+    foreach my $p (0, 1) {
+	fresh_perl_is(<<"EOP", '2 4 8', undef, "test \$^P = $p");
+\$DB::single = 2;
+\$DB::trace = 4;
+\$DB::signal = 8;
+\$^P = $p;
+print "\$DB::single \$DB::trace \$DB::signal";
+EOP
+    }
+}
+
 SKIP: {
     skip("%ENV manipulations fail or aren't safe on $^O", 4)
 	if $Is_VMS || $Is_Dos;
@@ -539,15 +552,3 @@ foreach my $sig (qw(__DIE__ _BOGUS_HOOK KILL THIRSTY)) {
 
 }
 
-{
-    #RT #72422
-    foreach my $p (0, 1) {
-	fresh_perl_is(<<"EOP", '2 4 8', undef, "test \$^P = $p");
-\$DB::single = 2;
-\$DB::trace = 4;
-\$DB::signal = 8;
-\$^P = $p;
-print "\$DB::single \$DB::trace \$DB::signal";
-EOP
-    }
-}