home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / glob-taint.t < prev    next >
Text File  |  2000-02-21  |  499b  |  27 lines

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