#!/usr/bin/perl -w -T use strict; use File::Find; print "Content-type: text/html\n\n"; find( \&print_options, "."); sub print_options { foreach ($_ ) { print "$_\n"; } }
This prints out the files I need but also comes up with the following Software error:
Insecure dependency in chdir while running with -T switch at /usr/loca +l/lib/perl5/5.8.2/File/Find.pm line 723.
If I don't want to delete the -T switch, how do I get round this error?
Thanks
In reply to Taint switch and File::Find by jonnyfolk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |