From: Peter Scott <Peter@PSDT.com>
Date: Fri, 8 Feb 2002 19:20:19 +0000 (-0800)
Subject: perl5db.pl: restart in taint mode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=963d69e8bb2ad35135b1d01b9ccda4272de0af1f;p=p5sagit%2Fp5-mst-13.2.git

perl5db.pl: restart in taint mode
Message-id: <4.3.2.7.2.20020208191757.00b4cea0@shell2.webquarry.com>

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index b62ac8b..2a8b2bf 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1244,6 +1244,7 @@ EOP
 			for (@ini_INC) {
 			  push @flags, '-I', $_;
 			}
+			push @flags, '-T' if ${^TAINT};
 			# Arrange for setting the old INC:
 			set_list("PERLDB_INC", @ini_INC);
 			if ($0 eq '-e') {