File: 04-no_taintmode.t

package info (click to toggle)
libhtml-template-perl 2.97-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 740 kB
  • sloc: perl: 2,572; makefile: 8
file content (6 lines) | stat: -rw-r--r-- 330 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
 
use Test::More ($] < 5.008000 ? (skip_all => 'force_untaint needs at least perl 5.8.0') : (tests => 2));
use_ok('HTML::Template');

my $text = 'foo';
eval { HTML::Template->new(debug => 0, scalarref => \$text, force_untaint => 1) };
like($@, qr/perl does not run in taint mode/, "force_untaint does not work without taint mode");