r64543 - in /branches/upstream/libxml-feedpp-perl/current: Changes META.yml README lib/XML/FeedPP.pm

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

Author: periapt-guest
Date: Thu Nov  4 13:39:17 2010
New Revision: 64543

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64543
Log:
[svn-upgrade] new version libxml-feedpp-perl (0.42)

Modified:
    branches/upstream/libxml-feedpp-perl/current/Changes
    branches/upstream/libxml-feedpp-perl/current/META.yml
    branches/upstream/libxml-feedpp-perl/current/README
    branches/upstream/libxml-feedpp-perl/current/lib/XML/FeedPP.pm

Modified: branches/upstream/libxml-feedpp-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feedpp-perl/current/Changes?rev=64543&op=diff
==============================================================================
--- branches/upstream/libxml-feedpp-perl/current/Changes (original)
+++ branches/upstream/libxml-feedpp-perl/current/Changes Thu Nov  4 13:39:17 2010
@@ -1,4 +1,9 @@
 # XML::FeedPP Changes
+
+2010/10/31 (0.42)
+    * fixed #55197: Not a HASH reference at XML/FeedPP.pm line 2260
+      https://rt.cpan.org/Ticket/Display.html?id=55197
+      (thanks to MDOM)
 
 2009/11/21 (0.41)
     * supports generating CDATA section by setting SCALAR ref value like XML::TreePP.

Modified: branches/upstream/libxml-feedpp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feedpp-perl/current/META.yml?rev=64543&op=diff
==============================================================================
--- branches/upstream/libxml-feedpp-perl/current/META.yml (original)
+++ branches/upstream/libxml-feedpp-perl/current/META.yml Thu Nov  4 13:39:17 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               XML-FeedPP
-version:            0.41
+version:            0.42
 abstract:           ~
 author:  []
 license:            perl

Modified: branches/upstream/libxml-feedpp-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feedpp-perl/current/README?rev=64543&op=diff
==============================================================================
--- branches/upstream/libxml-feedpp-perl/current/README (original)
+++ branches/upstream/libxml-feedpp-perl/current/README Thu Nov  4 13:39:17 2010
@@ -305,8 +305,13 @@
 AUTHOR
     Yusuke Kawasaki, http://www.kawa.net/
 
-COPYRIGHT AND LICENSE
-    Copyright (c) 2006-2009 Yusuke Kawasaki. All rights reserved. This
-    program is free software; you can redistribute it and/or modify it under
-    the same terms as Perl itself.
-
+COPYRIGHT
+    The following copyright notice applies to all the files provided in this
+    distribution, including binary files, unless explicitly noted otherwise.
+
+    Copyright 2006-2010 Yusuke Kawasaki
+
+LICENSE
+    This library is free software; you can redistribute it and/or modify it
+    under the same terms as Perl itself.
+

Modified: branches/upstream/libxml-feedpp-perl/current/lib/XML/FeedPP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feedpp-perl/current/lib/XML/FeedPP.pm?rev=64543&op=diff
==============================================================================
--- branches/upstream/libxml-feedpp-perl/current/lib/XML/FeedPP.pm (original)
+++ branches/upstream/libxml-feedpp-perl/current/lib/XML/FeedPP.pm Thu Nov  4 13:39:17 2010
@@ -377,11 +377,18 @@
 
 Yusuke Kawasaki, http://www.kawa.net/
 
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (c) 2006-2009 Yusuke Kawasaki. All rights reserved.
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
+=head1 COPYRIGHT
+
+The following copyright notice applies to all the files provided in
+this distribution, including binary files, unless explicitly noted
+otherwise.
+
+Copyright 2006-2010 Yusuke Kawasaki
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
 
 =cut
 
@@ -400,7 +407,7 @@
     $XMLNS_ATOM10
 );
 
-$VERSION = "0.41";
+$VERSION = "0.42";
 
 $RSS20_VERSION  = '2.0';
 $ATOM03_VERSION = '0.3';
@@ -2256,7 +2263,7 @@
     my $elem = shift;
     my $text = shift;
     my $attr = \@_;
-    if ( ref $self->{$elem} ) {
+    if ( UNIVERSAL::isa( $self->{$elem}, 'HASH' )) {
         $self->{$elem}->{'#text'} = $text;
     }
     else {