taint

来自「source of perl for linux application,」· 代码 · 共 8 行

#!/usr/bin/perl -Tw

use lib qw(t/lib);
use Test::More tests => 1;

eval { kill 0, $^X };
like( $@, '/^Insecure dependency/',   '-T honored' );