develooper Front page | perl.perl5.changes | Postings from November 2010

[perl.git] branch blead, updated. v5.13.7-105-gd4456f8

From:
Jan Dubois
Date:
November 25, 2010 16:28
Subject:
[perl.git] branch blead, updated. v5.13.7-105-gd4456f8
Message ID:
E1PLmAq-0005Xw-F5@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/d4456f896c3eddd615abf6048839581863ea6ca3?hp=c788c1c2f78983cf6d561b2809d959be4999c7e7>

- Log -----------------------------------------------------------------
commit d4456f896c3eddd615abf6048839581863ea6ca3
Author: Jan Dubois <jand@activestate.com>
Date:   Thu Nov 25 16:26:51 2010 -0800

    Can't spawn fresh Perl interpreter with an empty PATH
-----------------------------------------------------------------------

Summary of changes:
 t/op/taint.t |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/t/op/taint.t b/t/op/taint.t
index 86372bd..0decc97 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1397,6 +1397,14 @@ foreach my $ord (78, 163, 256) {
 }
 
 {
+    # On Windows we can't spawn a fresh Perl interpreter unless at
+    # least the Windows system directory (usually C:\Windows\System32)
+    # is still on the PATH.  There is however no way to determine the
+    # actual path on the current system without loading the Win32
+    # module, so we just restore the original $ENV{PATH} here.
+    local $ENV{PATH} = $ENV{PATH};
+    $ENV{PATH} = $old_env_path if $Is_MSWin32;
+
     fresh_perl_is(<<'end', "ok", { switches => [ '-T' ] },
     $TAINT = substr($^X, 0, 0);
     formline('@'.('<'x("2000".$TAINT)).' | @*', 'hallo', 'welt');

--
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About