| CC: | Duncan McEwan <duncan [...] mcs.vuw.ac.nz> |
| Subject: | Tainting issue with Params-Validate and Log-Dispatch |
| Date: | Wed, 23 May 2007 13:05:44 +1200 |
| To: | bug-Params-Validate [...] rt.cpan.org |
| From: | Mark Davies <mark [...] mcs.vuw.ac.nz> |
Hi,
The test program below demonstrates a problem with either
Params-Validate or Log-Dispatch. Using Params-Validate-0.86 the test
program runs, however with either 0.87 or 0.88 it dies with the
error:
Insecure dependency in eval_sv() while running with -T switch
at /usr/pkg/lib/perl5/vendor_perl/5.8.0/Log/Dispatch/Syslog.pm line
42.
cheers
mark
#!/usr/pkg/bin/perl -Tw
use Log::Dispatch 1.6;
use Log::Dispatch::Syslog;
my $logger = Log::Dispatch->new();
$logger->add(Log::Dispatch::Syslog->new
( name => 'syslog',
ident => 'test',
min_level => 'info',
callbacks => sub { return "hi again" },
stderr => 1,
(facility => 'local1')
)
);
print "hi there\n";
exit 0;