File-Glob/t/taint.t

43003dfeSmillert#!./perl -T
43003dfeSmillert
43003dfeSmillertBEGIN {
43003dfeSmillert    chdir 't' if -d 't';
898184e3Ssthen    @INC = '../lib';
43003dfeSmillert    require Config; import Config;
43003dfeSmillert    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
43003dfeSmillert        print "1..0\n";
43003dfeSmillert        exit 0;
43003dfeSmillert    }
43003dfeSmillert}
43003dfeSmillert
*91f110e0Safresh1use Test::More;
*91f110e0Safresh1BEGIN {
*91f110e0Safresh1    plan(
*91f110e0Safresh1        ${^TAINT}
*91f110e0Safresh1        ? (tests => 2)
*91f110e0Safresh1        : (skip_all => "Appear to running a perl without taint support")
*91f110e0Safresh1    );
*91f110e0Safresh1}
898184e3Ssthen
898184e3SsthenBEGIN {
898184e3Ssthen    use_ok('File::Glob');
898184e3Ssthen}
898184e3Ssthen
43003dfeSmillert@a = File::Glob::bsd_glob("*");
43003dfeSmillerteval { $a = join("",@a), kill 0; 1 };
898184e3Ssthenlike($@, qr/Insecure dependency/, 'all filenames should be tainted');