In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/065144c63ee2795acbc962d225b0a3f8d7967ae3?hp=1b1ee2ef87e2dcc8a1699cc870aefd1b91c5f645>
- Log -----------------------------------------------------------------
commit 065144c63ee2795acbc962d225b0a3f8d7967ae3
Author: Tony Cook <t...@develop-help.com>
Date: Tue Jun 1 09:50:08 2010 +1000
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.
-----------------------------------------------------------------------
Summary of changes:
t/op/magic.t | 25 +++++++++++++------------
1 files changed, 13 insertions(+), 12 deletions(-)
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
- }
-}
--
Perl5 Master Repository
