t/lib/glob-taint.t

   1 #!./perl -T
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     unshift @INC, '../lib';
   6     print "1..2\n";
   7 }
   8 END {
   9     print "not ok 1\n" unless $loaded;
  10 }
  11 use File::Glob;
  12 $loaded = 1;
  13 print "ok 1\n";
  14
  15 # all filenames should be tainted
  16 @a = File::Glob::glob("*");
  17 eval { $a = join("",@a), kill 0; 1 };
  18 unless ($@ =~ /Insecure dependency/) {
  19     print "not ";
  20 }
  21 print "ok 2\n";