Subject: | VALARMs fail with taint-checks |
Date: | Mon, 31 Jan 2011 12:02:55 +0100 |
To: | bug-Data-ICal [...] rt.cpan.org |
From: | Peter Mogensen <apm [...] one.com> |
Using:
Perl: 5.10.1
Data::ICal: Ubuntu, libdata-ical-perl 0.16+dfsg-1
The require in sub _parse_valarm of Data/ICal/Entry.pm fails under
taintchecks.
To reproduce:
==================================================
#!/usr/bin/perl -T
use strict;
use warnings;
use Data::ICal;
local $/ = undef;
my $data = <DATA>;
$ENV{PATH} = '';
my $tainteddata = qx{/bin/echo "$data"};
my $calendar = Data::ICal->new(data => $tainteddata);
print $calendar->as_string;
__DATA__
BEGIN:VCALENDAR
PRODID:-//script
VERSION:2.0
BEGIN:VEVENT
SUMMARY: Test
DTSTART:20110312T083000
DTEND:20110312T093000
BEGIN:VALARM
TRIGGER:-PT30M
REPEAT:2
DURATION:PT15M
ACTION:DISPLAY
DESCRIPTION: Hey
END:VALARM
END:VEVENT
END:VCALENDAR