Skip Menu |

This queue is for tickets about the Data-ICal CPAN distribution.

Report information
The Basics
Id: 131339
Status: patched
Priority: 0/
Queue: Data-ICal

People
Owner: Nobody in particular
Requestors: LANCEW [...] cpan.org
Cc: lw [...] judocoach.com
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.22
Fixed in: (no value)



CC: lw [...] judocoach.com
Subject: GEO param escaped when should not be
the semi-colon in Geo value is being escaped and I don't believe it should be: The following code: use strict; use warnings; use Data::ICal; my $cal = Data::ICal->new; $cal->add_property( geo => '123.000;-0.001' ); print $cal->as_string; will produce: BEGIN:VCALENDAR VERSION:2.0 GEO:123.000\;-0.001 PRODID:Data::ICal 0.22 END:VCALENDAR Note that the Geo param is "GEO:123.000\;-0.001" when I believe it should be "GEO:123.000;-0.001" Changing Data::ICal::Property's _value_as_string sub "should" work. I.e. $value =~ s/;/\\;/gs unless lc($key) eq 'rrule' || lc($key) eq 'geo'; Opinions? I was not able to identify a git/svn repo for the module; happy to provide a PR if there is one available. Lance
Looks like I may have found your repo: https://github.com/bestpractical/data-ical Shall fork and experiment there. :-)
On Thu Jan 02 11:09:20 2020, LANCEW wrote: Show quoted text
> the semi-colon in Geo value is being escaped and I don't believe it > should be: > > The following code: > > use strict; > use warnings; > > use Data::ICal; > > my $cal = Data::ICal->new; > > $cal->add_property( > geo => '123.000;-0.001' > ); > > > print $cal->as_string; > > > > will produce: > > BEGIN:VCALENDAR > VERSION:2.0 > GEO:123.000\;-0.001 > PRODID:Data::ICal 0.22 > END:VCALENDAR > > > Note that the Geo param is "GEO:123.000\;-0.001" when I believe it > should be "GEO:123.000;-0.001" > > > Changing Data::ICal::Property's _value_as_string sub "should" work. > I.e. > > $value =~ s/;/\\;/gs unless lc($key) eq 'rrule' || lc($key) eq 'geo'; > > Opinions? > > > I was not able to identify a git/svn repo for the module; happy to > provide a PR if there is one available. > > Lance