Hi There, Thanks for your help with this but it doesn't quite do it.
> -----Original Message----- > From: Mark Mills [mailto:[EMAIL PROTECTED]] > Sent: 23 August 2002 16:35 > To: Jason Timmins; Template List > Subject: RE: [Templates] Insecure dependency > > $path = $file; > $path =~ /^(.+)$/s or die "invalid filename: $path"; > $path =~ s[:][]g if $^O eq 'MSWin32'; > $compiled = "$compdir$path$compext"; > $compiled =~ s[//][/]g; > + $compiled = $1 if /(.*)/; # taint cleaning > > return $compiled; > } With this new line inserted it no-longer bitches about insecure dependency, but instead I get an error about an uninitialized value.... Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/i386-linux/Template/Provider.pm line 564. ...and no compiled files are created. I've looked at the values of $1 and $compiled before and after this line. They're OK before and blank afterwards. Am I missing something? Did I mention I don't know too much about Perl!? ;-) Bye for now Jason. ________________________________________________________________________ This email has been scanned for all viruses by the TWF Internet Anti- Virus Email service. For more information on a proactive anti-virus service working around the clock, around the globe, visit http://www.twfinternet.com ________________________________________________________________________ _______________________________________________ templates mailing list [EMAIL PROTECTED] http://www.template-toolkit.org/mailman/listinfo/templates
