r26091 - in /trunk/libxml-feed-perl/debian: changelog patches/01_atom_date.patch

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Fri Oct 17 14:45:20 UTC 2008


Author: gregoa
Date: Fri Oct 17 14:45:17 2008
New Revision: 26091

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26091
Log:
Refresh patch 01_atom_date.patch, partly adopted upstream.

Modified:
    trunk/libxml-feed-perl/debian/changelog
    trunk/libxml-feed-perl/debian/patches/01_atom_date.patch

Modified: trunk/libxml-feed-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/debian/changelog?rev=26091&op=diff
==============================================================================
--- trunk/libxml-feed-perl/debian/changelog (original)
+++ trunk/libxml-feed-perl/debian/changelog Fri Oct 17 14:45:17 2008
@@ -13,6 +13,7 @@
   
   * New upstream release, includes a fix for "missing ability to specify feed
     type" (closes: #477394).
+  * Refresh patch 01_atom_date.patch, partly adopted upstream.
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 09 Oct 2007 22:33:25 +0200
 

Modified: trunk/libxml-feed-perl/debian/patches/01_atom_date.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-feed-perl/debian/patches/01_atom_date.patch?rev=26091&op=diff
==============================================================================
--- trunk/libxml-feed-perl/debian/patches/01_atom_date.patch (original)
+++ trunk/libxml-feed-perl/debian/patches/01_atom_date.patch Fri Oct 17 14:45:17 2008
@@ -3,17 +3,7 @@
 Cf. #380498
 --- a/lib/XML/Feed/Atom.pm
 +++ b/lib/XML/Feed/Atom.pm
-@@ -59,7 +59,8 @@ sub modified {
-     if (@_) {
-         $feed->{atom}->modified(DateTime::Format::W3CDTF->format_datetime($_[0]));
-     } else {
--        $feed->{atom}->modified ? iso2dt($feed->{atom}->modified) : undef;
-+        return iso2dt($feed->{atom}->modified) if $feed->{atom}->modified;
-+        return iso2dt($feed->{atom}->updated);
-     }
- }
- 
-@@ -172,7 +173,9 @@ sub issued {
+@@ -209,7 +209,9 @@
      if (@_) {
          $entry->{entry}->issued(DateTime::Format::W3CDTF->format_datetime($_[0])) if $_[0];
      } else {
@@ -24,14 +14,3 @@
      }
  }
  
-@@ -181,7 +184,9 @@ sub modified {
-     if (@_) {
-         $entry->{entry}->modified(DateTime::Format::W3CDTF->format_datetime($_[0])) if $_[0];
-     } else {
--        $entry->{entry}->modified ? iso2dt($entry->{entry}->modified) : undef;
-+        return iso2dt($entry->{entry}->modified) if $entry->{entry}->modified;
-+        return iso2dt($entry->{entry}->updated) if $entry->{entry}->updated;
-+        return undef;
-     }
- }
- 




More information about the Pkg-perl-cvs-commits mailing list