r47392 - in /branches/upstream/libdatetime-event-ical-perl/current: Changes META.yml Makefile.PL lib/DateTime/Event/ICal.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Nov 18 01:34:23 2009
New Revision: 47392

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47392
Log:
[svn-upgrade] Integrating new upstream version, libdatetime-event-ical-perl (0.10)

Modified:
    branches/upstream/libdatetime-event-ical-perl/current/Changes
    branches/upstream/libdatetime-event-ical-perl/current/META.yml
    branches/upstream/libdatetime-event-ical-perl/current/Makefile.PL
    branches/upstream/libdatetime-event-ical-perl/current/lib/DateTime/Event/ICal.pm

Modified: branches/upstream/libdatetime-event-ical-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-event-ical-perl/current/Changes?rev=47392&op=diff
==============================================================================
--- branches/upstream/libdatetime-event-ical-perl/current/Changes (original)
+++ branches/upstream/libdatetime-event-ical-perl/current/Changes Wed Nov 18 01:34:23 2009
@@ -1,4 +1,8 @@
 Changes for DateTime-Event-ICal
+
+0.10    2009-11-17
+- fixed recurrence stringification by DateTime::Format::ICal
+  Reported by Nick Spacek
 
 0.09    2005-09-30
 - fixed a warning in BYSETPOS

Modified: branches/upstream/libdatetime-event-ical-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-event-ical-perl/current/META.yml?rev=47392&op=diff
==============================================================================
--- branches/upstream/libdatetime-event-ical-perl/current/META.yml (original)
+++ branches/upstream/libdatetime-event-ical-perl/current/META.yml Wed Nov 18 01:34:23 2009
@@ -1,12 +1,15 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         DateTime-Event-ICal
-version:      0.09
-version_from: lib/DateTime/Event/ICal.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                DateTime-Event-ICal
+version:             0.10
+abstract:            DateTime rfc2445 recurrences
+license:             ~
+author:              
+    - Flavio S. Glock <fglock at gmail.com>
+generated_by:        ExtUtils::MakeMaker version 6.44
+distribution_type:   module
+requires:     
     DateTime:                      0
     DateTime::Event::Recurrence:   0.11
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libdatetime-event-ical-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-event-ical-perl/current/Makefile.PL?rev=47392&op=diff
==============================================================================
--- branches/upstream/libdatetime-event-ical-perl/current/Makefile.PL (original)
+++ branches/upstream/libdatetime-event-ical-perl/current/Makefile.PL Wed Nov 18 01:34:23 2009
@@ -4,7 +4,7 @@
 
     WriteMakefile( NAME         => 'DateTime::Event::ICal',
                    VERSION_FROM => 'lib/DateTime/Event/ICal.pm',
-                   AUTHOR       => 'Flavio S. Glock <fglock at pucrs.br>',
+                   AUTHOR       => 'Flavio S. Glock <fglock at gmail.com>',
                    ABSTRACT     => 'DateTime rfc2445 recurrences',
 
                    PREREQ_PM    => { 'DateTime' => 0,

Modified: branches/upstream/libdatetime-event-ical-perl/current/lib/DateTime/Event/ICal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-event-ical-perl/current/lib/DateTime/Event/ICal.pm?rev=47392&op=diff
==============================================================================
--- branches/upstream/libdatetime-event-ical-perl/current/lib/DateTime/Event/ICal.pm (original)
+++ branches/upstream/libdatetime-event-ical-perl/current/lib/DateTime/Event/ICal.pm Wed Nov 18 01:34:23 2009
@@ -11,7 +11,7 @@
 use Params::Validate qw(:all);
 use vars qw( $VERSION @ISA );
 @ISA     = qw( Exporter );
-$VERSION = 0.09;
+$VERSION = '0.10';
 
 use constant INFINITY     =>       100 ** 100 ** 100 ;
 use constant NEG_INFINITY => -1 * (100 ** 100 ** 100);
@@ -30,6 +30,7 @@
 );
 
 # internal debugging method - formats the argument list for error messages
+# the output from this routine is also used by DateTime::Format::ICal->format_recurrence()
 sub _param_str {
     my %param = @_;
     my @str;
@@ -42,7 +43,12 @@
             push @str, "$_=". join( ',', @{$param{$_}} )
         }
         elsif ( UNIVERSAL::can( $param{$_}, 'datetime' ) ) {
-            push @str, "$_=". $param{$_}->datetime 
+            if ( $DateTime::Format::ICal::VERSION ) {
+                push @str, "$_=" . DateTime::Format::ICal->format_datetime( $param{$_} );
+            }
+            else {
+                push @str, "$_=". $param{$_}->datetime 
+            }
         }
         elsif ( defined $param{$_} ) {
             push @str, "$_=". $param{$_} 
@@ -825,7 +831,7 @@
 =head1 AUTHOR
 
 Flavio Soibelmann Glock
-fglock at pucrs.br
+fglock at gmail.com
 
 =head1 CREDITS