[Bps-public-commit] Data-ICal branch, master, updated. 0.23-3-ga5b68e8

? sunnavy sunnavy at bestpractical.com
Fri Jan 3 09:25:01 EST 2020 

The branch, master has been updated
       via  a5b68e8a2840eaa71231d5bdc9239e7bf1618a44 (commit)
       via  7e276bbd1c80c8b5adb5db663b417ccba234361a (commit)
       via  56b48ba4d16a4e5a2ec45e8cfb10fdf8545b7828 (commit)
      from  a913ab220b5d5b3db3940126f4f7be1f7e105b7b (commit)

Summary of changes:
 Changes                                  | 3 +++
 META.yml                                 | 2 +-
 README                                   | 2 +-
 lib/Data/ICal.pm                         | 4 ++--
 lib/Data/ICal/Entry.pm                   | 2 +-
 lib/Data/ICal/Entry/Alarm.pm             | 2 +-
 lib/Data/ICal/Entry/Alarm/Audio.pm       | 2 +-
 lib/Data/ICal/Entry/Alarm/Display.pm     | 2 +-
 lib/Data/ICal/Entry/Alarm/Email.pm       | 2 +-
 lib/Data/ICal/Entry/Alarm/None.pm        | 2 +-
 lib/Data/ICal/Entry/Alarm/Procedure.pm   | 2 +-
 lib/Data/ICal/Entry/Alarm/URI.pm         | 2 +-
 lib/Data/ICal/Entry/Event.pm             | 2 +-
 lib/Data/ICal/Entry/FreeBusy.pm          | 2 +-
 lib/Data/ICal/Entry/Journal.pm           | 2 +-
 lib/Data/ICal/Entry/TimeZone.pm          | 2 +-
 lib/Data/ICal/Entry/TimeZone/Daylight.pm | 2 +-
 lib/Data/ICal/Entry/TimeZone/Standard.pm | 2 +-
 lib/Data/ICal/Entry/Todo.pm              | 2 +-
 lib/Data/ICal/Property.pm                | 4 ++--
 t/01.simplegen.t                         | 2 ++
 21 files changed, 26 insertions(+), 21 deletions(-)

- Log -----------------------------------------------------------------
commit 56b48ba4d16a4e5a2ec45e8cfb10fdf8545b7828
Author: Lance Wicks <lw at judocoach.com>
Date:   Thu Jan 2 16:46:38 2020 +0000

    Prevent escaping of semi-colon in GEO field
    
    This addresses issue 131339 on RT
    (https://rt.cpan.org/Ticket/Display.html?id=131339)
    
    The _value_as_string sub in Data::ICal::Property escapes ";" to "\;"
    This is not desired behavior in the GEO param, so I add an additional
    clause to the existing logic to prevent it.
    
    See https://tools.ietf.org/html/rfc5545#section-3.8.1.6

diff --git a/lib/Data/ICal/Property.pm b/lib/Data/ICal/Property.pm
index b81efc5..c5a8b8f 100644
--- a/lib/Data/ICal/Property.pm
+++ b/lib/Data/ICal/Property.pm
@@ -231,7 +231,7 @@ sub _value_as_string {
 
     unless ( $self->vcal10 ) {
         $value =~ s/\\/\\\\/gs;
-        $value =~ s/;/\\;/gs unless lc($key) eq 'rrule';
+        $value =~ s/;/\\;/gs unless lc($key) eq 'rrule' || lc($key) eq 'geo';
         $value =~ s/,/\\,/gs unless lc($key) eq 'rrule';
         $value =~ s/\x0d?\x0a/\\n/gs;
     }
diff --git a/t/01.simplegen.t b/t/01.simplegen.t
index 0619aca..8dbc4cc 100644
--- a/t/01.simplegen.t
+++ b/t/01.simplegen.t
@@ -80,6 +80,7 @@ can_ok($event, qw/add_property add_properties properties/);
 $event->add_properties( 
                         summary => 'Awesome party',
                         description => "at my \\ place,\nOn 5th St.;",
+                        geo => '123.000;-0.001',
                     );
 
 ok($s->add_entry($event));
@@ -97,6 +98,7 @@ URL:http://example.com/todo1
 END:VTODO
 BEGIN:VEVENT
 DESCRIPTION:at my \\\\ place\\,\\nOn 5th St.\\;
+GEO:123.000;-0.001
 SUMMARY:Awesome party
 END:VEVENT
 END:VCALENDAR

commit 7e276bbd1c80c8b5adb5db663b417ccba234361a
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Jan 3 22:12:59 2020 +0800

    Update copyright to 2020

diff --git a/README b/README
index 451fa5e..4a6e016 100644
--- a/README
+++ b/README
@@ -118,7 +118,7 @@ AUTHOR
     Wistow, and Alex Vandiver
 
 LICENCE AND COPYRIGHT
-    Copyright (c) 2005 - 2019, Best Practical Solutions, LLC. All rights
+    Copyright (c) 2005 - 2020, Best Practical Solutions, LLC. All rights
     reserved.
 
     This module is free software; you can redistribute it and/or modify it
diff --git a/lib/Data/ICal.pm b/lib/Data/ICal.pm
index f6fece5..9dabb71 100644
--- a/lib/Data/ICal.pm
+++ b/lib/Data/ICal.pm
@@ -321,7 +321,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry.pm b/lib/Data/ICal/Entry.pm
index 91aad2c..6819dc3 100644
--- a/lib/Data/ICal/Entry.pm
+++ b/lib/Data/ICal/Entry.pm
@@ -630,7 +630,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm.pm b/lib/Data/ICal/Entry/Alarm.pm
index 1eec20a..62a2fc9 100644
--- a/lib/Data/ICal/Entry/Alarm.pm
+++ b/lib/Data/ICal/Entry/Alarm.pm
@@ -91,7 +91,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/Audio.pm b/lib/Data/ICal/Entry/Alarm/Audio.pm
index 4131dea..993b3f4 100644
--- a/lib/Data/ICal/Entry/Alarm/Audio.pm
+++ b/lib/Data/ICal/Entry/Alarm/Audio.pm
@@ -66,7 +66,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/Display.pm b/lib/Data/ICal/Entry/Alarm/Display.pm
index 4eea3b5..7e96e60 100644
--- a/lib/Data/ICal/Entry/Alarm/Display.pm
+++ b/lib/Data/ICal/Entry/Alarm/Display.pm
@@ -67,7 +67,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/Email.pm b/lib/Data/ICal/Entry/Alarm/Email.pm
index f14557c..aa8d688 100644
--- a/lib/Data/ICal/Entry/Alarm/Email.pm
+++ b/lib/Data/ICal/Entry/Alarm/Email.pm
@@ -96,7 +96,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/None.pm b/lib/Data/ICal/Entry/Alarm/None.pm
index 9af1a02..bd72767 100644
--- a/lib/Data/ICal/Entry/Alarm/None.pm
+++ b/lib/Data/ICal/Entry/Alarm/None.pm
@@ -53,7 +53,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/Procedure.pm b/lib/Data/ICal/Entry/Alarm/Procedure.pm
index c0caed5..f9f47e7 100644
--- a/lib/Data/ICal/Entry/Alarm/Procedure.pm
+++ b/lib/Data/ICal/Entry/Alarm/Procedure.pm
@@ -82,7 +82,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Alarm/URI.pm b/lib/Data/ICal/Entry/Alarm/URI.pm
index f572cb6..1a2b906 100644
--- a/lib/Data/ICal/Entry/Alarm/URI.pm
+++ b/lib/Data/ICal/Entry/Alarm/URI.pm
@@ -73,7 +73,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Event.pm b/lib/Data/ICal/Entry/Event.pm
index eafd5f8..4ecb1b8 100644
--- a/lib/Data/ICal/Entry/Event.pm
+++ b/lib/Data/ICal/Entry/Event.pm
@@ -153,7 +153,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/FreeBusy.pm b/lib/Data/ICal/Entry/FreeBusy.pm
index a3b5787..33b783c 100644
--- a/lib/Data/ICal/Entry/FreeBusy.pm
+++ b/lib/Data/ICal/Entry/FreeBusy.pm
@@ -93,7 +93,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Journal.pm b/lib/Data/ICal/Entry/Journal.pm
index e428ef9..575ffe7 100644
--- a/lib/Data/ICal/Entry/Journal.pm
+++ b/lib/Data/ICal/Entry/Journal.pm
@@ -99,7 +99,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/TimeZone.pm b/lib/Data/ICal/Entry/TimeZone.pm
index 349ad32..8216a34 100644
--- a/lib/Data/ICal/Entry/TimeZone.pm
+++ b/lib/Data/ICal/Entry/TimeZone.pm
@@ -79,7 +79,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/TimeZone/Daylight.pm b/lib/Data/ICal/Entry/TimeZone/Daylight.pm
index 3e86c56..ed818a6 100644
--- a/lib/Data/ICal/Entry/TimeZone/Daylight.pm
+++ b/lib/Data/ICal/Entry/TimeZone/Daylight.pm
@@ -106,7 +106,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/TimeZone/Standard.pm b/lib/Data/ICal/Entry/TimeZone/Standard.pm
index 41e2e48..4a94b82 100644
--- a/lib/Data/ICal/Entry/TimeZone/Standard.pm
+++ b/lib/Data/ICal/Entry/TimeZone/Standard.pm
@@ -106,7 +106,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Entry/Todo.pm b/lib/Data/ICal/Entry/Todo.pm
index 8de448e..7c85282 100644
--- a/lib/Data/ICal/Entry/Todo.pm
+++ b/lib/Data/ICal/Entry/Todo.pm
@@ -140,7 +140,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.
diff --git a/lib/Data/ICal/Property.pm b/lib/Data/ICal/Property.pm
index c5a8b8f..5694096 100644
--- a/lib/Data/ICal/Property.pm
+++ b/lib/Data/ICal/Property.pm
@@ -349,7 +349,7 @@ Best Practical Solutions, LLC E<lt>modules at bestpractical.comE<gt>
 
 =head1 LICENCE AND COPYRIGHT
 
-Copyright (c) 2005 - 2019, Best Practical Solutions, LLC.  All rights reserved.
+Copyright (c) 2005 - 2020, Best Practical Solutions, LLC.  All rights reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself. See L<perlartistic>.

commit a5b68e8a2840eaa71231d5bdc9239e7bf1618a44
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Jan 3 22:14:03 2020 +0800

    Release 0.24

diff --git a/Changes b/Changes
index 0440729..0699474 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Data-ICal
 
+0.24 2020-01-03
+ - Prevent escaping of semi-colon in GEO field(thanks to Lance Wicks)
+
 0.23 2019-08-14
 
  - Rewrite property folding to be faster (and clearer)(thanks to Calvin Morrison)
diff --git a/META.yml b/META.yml
index 6d1c473..0ccaab4 100644
--- a/META.yml
+++ b/META.yml
@@ -30,4 +30,4 @@ requires:
   Text::vFile::asData: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: '0.23'
+version: '0.24'
diff --git a/lib/Data/ICal.pm b/lib/Data/ICal.pm
index 9dabb71..26ee89e 100644
--- a/lib/Data/ICal.pm
+++ b/lib/Data/ICal.pm
@@ -7,7 +7,7 @@ use base qw/Data::ICal::Entry/;
 use Class::ReturnValue;
 use Text::vFile::asData;
 
-our $VERSION = '0.23';
+our $VERSION = '0.24';
 
 use Carp;
 

-----------------------------------------------------------------------

More information about the Bps-public-commit mailing list