perl5db.pl: restart in taint mode
Peter Scott [Fri, 8 Feb 2002 19:20:19 +0000 (11:20 -0800)]
Message-id: <4.3.2.7.2.20020208191757.00b4cea0@shell2.webquarry.com>

p4raw-id: //depot/perl@14610

lib/perl5db.pl

index b62ac8b..2a8b2bf 100644 (file)
@@ -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') {