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 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1244,6 +1244,7 @@ EOP
                        for (@ini_INC) {
                          push @flags, '-I', $_;
                        }
                        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') {
                        # Arrange for setting the old INC:
                        set_list("PERLDB_INC", @ini_INC);
                        if ($0 eq '-e') {