From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 2 Mar 2010 01:55:08 +0000 (-0600)
Subject: Don't scrub DCL$PATH unless it's there.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02bb3106fe98e7142548ce7815ba8632f0e4d4f8;p=p5sagit%2Fp5-mst-13.2.git

Don't scrub DCL$PATH unless it's there.

It's optional and this was causing test failures when it didn't exist.
---

diff --git a/t/test.pl b/t/test.pl
index c0406b0..d39c010 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -525,7 +525,7 @@ sub runperl {
 	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV);
 	local @ENV{@keys} = ();
 	# Untaint, plus take out . and empty string:
-	local $ENV{'DCL$PATH'} = $1 if $is_vms && ($ENV{'DCL$PATH'} =~ /(.*)/s);
+	local $ENV{'DCL$PATH'} = $1 if $is_vms && exists($ENV{'DCL$PATH'}) && ($ENV{'DCL$PATH'} =~ /(.*)/s);
 	$ENV{PATH} =~ /(.*)/s;
 	local $ENV{PATH} =
 	    join $sep, grep { $_ ne "" and $_ ne "." and -d $_ and