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