This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5db.pl: restart in taint mode
authorPeter Scott <Peter@PSDT.com>
Fri, 8 Feb 2002 19:20:19 +0000 (11:20 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 9 Feb 2002 16:12:03 +0000 (16:12 +0000)
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') {