Help for this page
#!/usr/bin/perl -T use strict; ... open( FH, '+>', $params{A} ) or die "$params{A} : untaint \$params +{A}"; close FH; }
$ t-taint.pl type 'file' to test: file Insecure dependency in open while running with -T switch at ./t-taint. +pl line 46, <> line 1.
# untaint parameters for( keys %params ) ... display_message( $messages{error} ) && exit; } }
www.com | www.net | www.org
There is too much technical debt in my codebase The stability of the system Perl suits me better I have to support users of some ancient version I'm stuck with ActiveState/TinyPerl/microperl/Strawberry ... Letting the early adopters trip over the bugs is fine Some other reason
Results (43 votes). Check out past polls.