r5249 - in /packages/libxml-atom-perl/trunk: ./ debian/ lib/XML/
lib/XML/Atom/ t/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Apr 20 12:54:50 UTC 2007
Author: eloy
Date: Fri Apr 20 12:54:50 2007
New Revision: 5249
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5249
Log:
new upstream version
Added:
packages/libxml-atom-perl/trunk/t/25-utf8-create.t
- copied unchanged from r5248, packages/libxml-atom-perl/branches/upstream/current/t/25-utf8-create.t
packages/libxml-atom-perl/trunk/t/27-client-leaks.t
- copied unchanged from r5248, packages/libxml-atom-perl/branches/upstream/current/t/27-client-leaks.t
packages/libxml-atom-perl/trunk/t/TestLib.pm
- copied unchanged from r5248, packages/libxml-atom-perl/branches/upstream/current/t/TestLib.pm
Modified:
packages/libxml-atom-perl/trunk/Changes
packages/libxml-atom-perl/trunk/MANIFEST
packages/libxml-atom-perl/trunk/META.yml
packages/libxml-atom-perl/trunk/debian/changelog
packages/libxml-atom-perl/trunk/debian/control
packages/libxml-atom-perl/trunk/debian/watch
packages/libxml-atom-perl/trunk/lib/XML/Atom.pm
packages/libxml-atom-perl/trunk/lib/XML/Atom/Base.pm
packages/libxml-atom-perl/trunk/lib/XML/Atom/Client.pm
packages/libxml-atom-perl/trunk/lib/XML/Atom/Feed.pm
packages/libxml-atom-perl/trunk/lib/XML/Atom/Util.pm
packages/libxml-atom-perl/trunk/t/00-compile.t
packages/libxml-atom-perl/trunk/t/02-content.t
packages/libxml-atom-perl/trunk/t/11-entry.t
packages/libxml-atom-perl/trunk/t/19-ext.t
Modified: packages/libxml-atom-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/Changes?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/Changes (original)
+++ packages/libxml-atom-perl/trunk/Changes Fri Apr 20 12:54:50 2007
@@ -1,6 +1,22 @@
$Id$
Revision history for XML::Atom
+
+0.25 2006.11.30
+ * Fixed memory leaks in XML::Atom::Client
+ (Reported by Brian Cassidy)
+
+0.24 2006.11.25
+ * Updated document to mention that ID creation is user's responsibility
+ * Added $feed->as_xml_utf8 which always returns UTF-8 bytes string, rather than UTF-8 flagged one.
+ This addresses annoying issues with UTF-8 vs. latin-1 (Thanks to Rui Vilela #21191)
+ * Better fix for the hateful default: prefix issue in libxml2; now we
+ remove the default\d* prefix on any nodes and set the proper namespace
+ URI.
+ * Fix to the test case since 0x242 is now printable character in bleadperl
+ (Thanks to Andreas Koenig and Steve Peters)
+ * Skip tests if 'euc-jp' is unknown encoding on your XML library
+ (via CPAN testers)
0.23 2006.08.27
* Fixed the method to get xml:lang and xml:base due to the
Modified: packages/libxml-atom-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/MANIFEST?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/MANIFEST (original)
+++ packages/libxml-atom-perl/trunk/MANIFEST Fri Apr 20 12:54:50 2007
@@ -47,6 +47,8 @@
t/20-content-xhtml.t
t/23-category.t
t/24-bad-content.t
+t/25-utf8-create.t
+t/27-client-leaks.t
t/samples/atom-1.0.xml
t/samples/entry-euc.xml
t/samples/entry-full.xml
@@ -56,3 +58,4 @@
t/samples/lifeblog-atom.xml
t/samples/me.jpg
t/samples/vox.xml
+t/TestLib.pm
Modified: packages/libxml-atom-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/META.yml?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/META.yml (original)
+++ packages/libxml-atom-perl/trunk/META.yml Fri Apr 20 12:54:50 2007
@@ -21,4 +21,4 @@
Class::Data::Inheritable: 0
MIME::Base64: 0
URI: 0
-version: 0.23
+version: 0.25
Modified: packages/libxml-atom-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/debian/changelog?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/debian/changelog (original)
+++ packages/libxml-atom-perl/trunk/debian/changelog Fri Apr 20 12:54:50 2007
@@ -1,3 +1,10 @@
+libxml-atom-perl (0.25-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+ * debian/control: Added me to Uploaders
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Fri, 20 Apr 2007 14:53:16 +0200
+
libxml-atom-perl (0.23-1) unstable; urgency=low
* New upstream release.
Modified: packages/libxml-atom-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/debian/control?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/debian/control (original)
+++ packages/libxml-atom-perl/trunk/debian/control Fri Apr 20 12:54:50 2007
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 5.0.0)
Build-Depends-Indep: perl (>= 5.8.0-7), libxml-libxml-perl (>=1.54), liburi-perl, libwww-perl, liblwp-authen-wsse-perl, libdigest-sha1-perl, libdatetime-perl, libhtml-parser-perl, libxml-libxslt-perl, libclass-data-inheritable-perl, libxml-xpath-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Tim Peeler <thp at linuxforce.net>, gregor herrmann <gregor+debian at comodo.priv.at>, Carlo Segre <segre at debian.org>
+Uploaders: Tim Peeler <thp at linuxforce.net>, gregor herrmann <gregor+debian at comodo.priv.at>, Carlo Segre <segre at debian.org>, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
Standards-Version: 3.7.2
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/packages/libxml-atom-perl/trunk/
Modified: packages/libxml-atom-perl/trunk/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/debian/watch?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/debian/watch (original)
+++ packages/libxml-atom-perl/trunk/debian/watch Fri Apr 20 12:54:50 2007
@@ -1,3 +1,3 @@
# format version number, currently 3; this line is compulsory!
version=3
-http://mirrors.kernel.org/cpan/modules/by-module/XML/XML-Atom-([\d\.]+)\.tar\.gz
+http://www.cpan.org/modules/by-module/XML/XML-Atom-([\d\.]+)\.tar\.gz
Modified: packages/libxml-atom-perl/trunk/lib/XML/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/lib/XML/Atom.pm?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/lib/XML/Atom.pm (original)
+++ packages/libxml-atom-perl/trunk/lib/XML/Atom.pm Fri Apr 20 12:54:50 2007
@@ -2,6 +2,8 @@
package XML::Atom;
use strict;
+
+our $VERSION = '0.25';
BEGIN {
@XML::Atom::EXPORT = qw( LIBXML );
@@ -27,8 +29,6 @@
}
use base qw( XML::Atom::ErrorHandler Exporter );
-
-our $VERSION = '0.23';
package XML::Atom::Namespace;
use strict;
Modified: packages/libxml-atom-perl/trunk/lib/XML/Atom/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/lib/XML/Atom/Base.pm?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/lib/XML/Atom/Base.pm (original)
+++ packages/libxml-atom-perl/trunk/lib/XML/Atom/Base.pm Fri Apr 20 12:54:50 2007
@@ -1,9 +1,10 @@
-# $Id: /mirror/code/XML-Atom/trunk/lib/XML/Atom/Base.pm 4088 2006-08-27T05:50:44.603134Z miyagawa $
+# $Id: /mirror/code/XML-Atom/trunk/lib/XML/Atom/Base.pm 5342 2006-09-16T06:39:51.745764Z miyagawa $
package XML::Atom::Base;
use strict;
use base qw( XML::Atom::ErrorHandler Class::Data::Inheritable );
+use Encode;
use XML::Atom;
use XML::Atom::Util qw( set_ns first nodelist childlist create_element remove_default_ns );
@@ -318,4 +319,9 @@
}
}
+sub as_xml_utf8 {
+ my $obj = shift;
+ Encode::encode_utf8($obj->as_xml);
+}
+
1;
Modified: packages/libxml-atom-perl/trunk/lib/XML/Atom/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/lib/XML/Atom/Client.pm?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/lib/XML/Atom/Client.pm (original)
+++ packages/libxml-atom-perl/trunk/lib/XML/Atom/Client.pm Fri Apr 20 12:54:50 2007
@@ -218,6 +218,7 @@
package LWP::UserAgent::AtomClient;
use strict;
+use Scalar::Util;
use base qw( LWP::UserAgent );
@@ -226,6 +227,7 @@
my($class, $client) = @_;
my $ua = $class->SUPER::new;
$ClientOf{$ua} = $client;
+ Scalar::Util::weaken($ClientOf{$ua});
$ua;
}
Modified: packages/libxml-atom-perl/trunk/lib/XML/Atom/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/lib/XML/Atom/Feed.pm?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/lib/XML/Atom/Feed.pm (original)
+++ packages/libxml-atom-perl/trunk/lib/XML/Atom/Feed.pm Fri Apr 20 12:54:50 2007
@@ -169,8 +169,10 @@
use XML::Atom::Entry;
my $feed = XML::Atom::Feed->new;
$feed->title('My Weblog');
+ $feed->id('tag:example.com,2006:feed-id');
my $entry = XML::Atom::Entry->new;
$entry->title('First Post');
+ $entry->id('tag:example.com,2006:entry-id');
$entry->content('Post Body');
$feed->add_entry($entry);
$feed->add_entry($entry, { mode => 'insert' });
@@ -282,6 +284,13 @@
$author->email('foo at bar.com');
$feed->author($author);
+=head2 $feed->id([ $id ])
+
+Returns an id for the feed. If I<$id> is supplied, set the id. When
+generating the new feed, it is your responsibility to generate unique
+ID for the feed and set to XML::Atom::Feed object. You can use I<http>
+permalink, I<tag> URI scheme or I<urn:uuid> for handy.
+
=head1 UNICODE FLAGS
By default, XML::Atom takes off all the Unicode flag fro mthe feed content. For example,
Modified: packages/libxml-atom-perl/trunk/lib/XML/Atom/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/lib/XML/Atom/Util.pm?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/lib/XML/Atom/Util.pm (original)
+++ packages/libxml-atom-perl/trunk/lib/XML/Atom/Util.pm Fri Apr 20 12:54:50 2007
@@ -116,8 +116,12 @@
sub remove_default_ns {
my($node) = @_;
- $node->setNamespace('http://www.w3.org/1999/xhtml', '')
- if ($node->nodeName) =~ /^default:/ && ref($node) =~ /Element$/;
+ if (ref($node) =~ /Element$/ && $node->nodeName =~ /^default\d*:/) {
+ my $ns = $node->getNamespace;
+ if ($ns and my $uri = $ns->getData) {
+ $node->setNamespace($uri, '');
+ }
+ }
for my $n ($node->childNodes) {
remove_default_ns($n);
}
Modified: packages/libxml-atom-perl/trunk/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/t/00-compile.t?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/t/00-compile.t (original)
+++ packages/libxml-atom-perl/trunk/t/00-compile.t Fri Apr 20 12:54:50 2007
@@ -1,12 +1,12 @@
# $Id$
-use Test::More tests => 8;
+use Test::More tests => 6;
use_ok('XML::Atom');
use_ok('XML::Atom::Entry');
use_ok('XML::Atom::Feed');
-use_ok('XML::Atom::Client');
-use_ok('XML::Atom::Server');
+#use_ok('XML::Atom::Client');
+#use_ok('XML::Atom::Server');
use_ok('XML::Atom::Person');
use_ok('XML::Atom::Content');
use_ok('XML::Atom::Link');
Modified: packages/libxml-atom-perl/trunk/t/02-content.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/t/02-content.t?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/t/02-content.t (original)
+++ packages/libxml-atom-perl/trunk/t/02-content.t Fri Apr 20 12:54:50 2007
@@ -58,9 +58,9 @@
$content = XML::Atom::Content->new;
$content->type('text/plain');
-eval { $content->body("Non-printable: " . chr(578)) };
+eval { $content->body("Non-printable: " . chr(0x1034F)) };
is $content->mode, 'base64';
-is $content->body, un_utf8("Non-printable: " . chr(578));
+is $content->body, un_utf8("Non-printable: " . chr(0x1034F));
# 1.0 with xhtml
$content = XML::Atom::Content->new(Version => 1.0);
Modified: packages/libxml-atom-perl/trunk/t/11-entry.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/t/11-entry.t?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/t/11-entry.t (original)
+++ packages/libxml-atom-perl/trunk/t/11-entry.t Fri Apr 20 12:54:50 2007
@@ -2,10 +2,17 @@
use strict;
-use Test::More tests => 71;
+use t::TestLib;
+use Test::More;
use XML::Atom;
use XML::Atom::Entry;
use XML::Atom::Person;
+
+unless ( xmllib_support_encoding('euc-jp') ){
+ plan skip_all => 'euc-jp is not supported on your XML library';
+}
+
+plan tests => 71;
my $entry;
Modified: packages/libxml-atom-perl/trunk/t/19-ext.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/trunk/t/19-ext.t?rev=5249&op=diff
==============================================================================
--- packages/libxml-atom-perl/trunk/t/19-ext.t (original)
+++ packages/libxml-atom-perl/trunk/t/19-ext.t Fri Apr 20 12:54:50 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/code/XML-Atom/trunk/t/19-ext.t 3517 2006-08-16T05:34:19.378835Z miyagawa $
+# $Id: /mirror/code/XML-Atom/trunk/t/19-ext.t 5803 2006-09-19T22:35:49.408282Z btrott $
use strict;
use FindBin;
@@ -25,7 +25,7 @@
isa_ok $foo2, 'XML::Atom::Ext::Foo';
is $foo2->bar, 1;
-like $feed->as_xml, qr/<(?:\w+:)foo xmlns="http:\/\/www.example.com\/ns\/">/;
+like $feed->as_xml, qr/<foo xmlns="http:\/\/www.example.com\/ns\/">/;
package XML::Atom::Ext::Foo;
use strict;
More information about the Pkg-perl-cvs-commits
mailing list