r3585 - in /packages/libxml-atom-perl/branches/upstream/current: ./ inc/Module/ inc/Module/Install/ lib/XML/ lib/XML/Atom/ t/

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Sep 2 17:59:35 UTC 2006


Author: gregoa-guest
Date: Sat Sep  2 17:59:35 2006
New Revision: 3585

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3585
Log:
Load /tmp/tmp.PPXyr24723/libxml-atom-perl-0.23 into
packages/libxml-atom-perl/branches/upstream/current.

Modified:
    packages/libxml-atom-perl/branches/upstream/current/Changes
    packages/libxml-atom-perl/branches/upstream/current/META.yml
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/AutoInstall.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/AutoInstall.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Base.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Build.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Can.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Include.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Win32.pm
    packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
    packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom.pm
    packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Base.pm
    packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Content.pm
    packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Feed.pm
    packages/libxml-atom-perl/branches/upstream/current/t/19-ext.t
    packages/libxml-atom-perl/branches/upstream/current/t/20-content-xhtml.t

Modified: packages/libxml-atom-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/Changes?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/Changes (original)
+++ packages/libxml-atom-perl/branches/upstream/current/Changes Sat Sep  2 17:59:35 2006
@@ -1,6 +1,10 @@
 $Id$
 
 Revision history for XML::Atom
+
+0.23  2006.08.27
+    * Fixed the method to get xml:lang and xml:base due to the
+      XML::LibXML 1.60 change which invalidated it.
 
 0.22  2006.07.24
     * Refactored internal element accessors by eating the new dog food

Modified: packages/libxml-atom-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/META.yml?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/META.yml (original)
+++ packages/libxml-atom-perl/branches/upstream/current/META.yml Sat Sep  2 17:59:35 2006
@@ -1,7 +1,7 @@
 abstract: Atom API and Feed Support
 author: Benjamin Trott <cpan at stupidfool.org>
 distribution_type: module
-generated_by: Module::Install version 0.61
+generated_by: Module::Install version 0.64
 license: perl
 name: XML-Atom
 no_index: 
@@ -21,4 +21,4 @@
   Class::Data::Inheritable: 0
   MIME::Base64: 0
   URI: 0
-version: 0.22
+version: 0.23

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/AutoInstall.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/AutoInstall.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/AutoInstall.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/AutoInstall.pm Sat Sep  2 17:59:35 2006
@@ -7,7 +7,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.02';
+	$VERSION = '1.03';
 }
 
 # special map on pre-defined feature sets
@@ -214,7 +214,7 @@
         }
     }
 
-    _check_lock();    # check for $UnderCPAN
+    $UnderCPAN = _check_lock();    # check for $UnderCPAN
 
     if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
         require Config;
@@ -234,9 +234,20 @@
     *{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
 }
 
-# CPAN.pm is non-reentrant, so check if we're under it and have no CPANPLUS
+# Check to see if we are currently running under CPAN.pm and/or CPANPLUS;
+# if we are, then we simply let it taking care of our dependencies
 sub _check_lock {
     return unless @Missing;
+
+    if ($ENV{PERL5_CPANPLUS_IS_RUNNING}) {
+        print <<'END_MESSAGE';
+
+*** Since we're running under CPANPLUS, I'll just let it take care
+    of the dependency's installation later.
+END_MESSAGE
+        return 1;
+    }
+
     _load_cpan();
 
     # Find the CPAN lock-file
@@ -256,10 +267,11 @@
 *** Since we're running under CPAN, I'll just let it take care
     of the dependency's installation later.
 END_MESSAGE
-        $UnderCPAN = 1;
+        return 1;
     }
 
     close LOCK;
+    return;
 }
 
 sub install {
@@ -280,7 +292,8 @@
         }
     }
 
-    return @installed unless @modules;    # nothing to do
+    return @installed unless @modules;  # nothing to do
+    return @installed if _check_lock(); # defer to the CPAN shell
 
     print "*** Installing dependencies...\n";
 
@@ -300,7 +313,7 @@
         @modules = @newmod;
     }
 
-    if ( ! $UnderCPAN and _has_cpanplus() ) {
+    if ( _has_cpanplus() ) {
         _install_cpanplus( \@modules, \@config );
     } else {
         _install_cpan( \@modules, \@config );
@@ -466,9 +479,9 @@
                 delete $INC{$inc};
             }
 
-            $obj->force('install') if $args{force};
-
-            my $rv = $obj->install || eval {
+            my $rv = $args{force} ? CPAN::Shell->force( install => $pkg )
+                                  : CPAN::Shell->install($pkg);
+            $rv ||= eval {
                 $CPAN::META->instance( 'CPAN::Distribution', $obj->cpan_file, )
                   ->{install}
                   if $CPAN::META;
@@ -639,7 +652,9 @@
 
     # check for version numbers that are not in decimal format
     if ( ref($cur) or ref($min) or $cur =~ /v|\..*\./ or $min =~ /v|\..*\./ ) {
-        if ( $version::VERSION or defined( _load('version') ) ) {
+        if ( ( $version::VERSION or defined( _load('version') )) and
+             version->can('new') 
+            ) {
 
             # use version.pm if it is installed.
             return (
@@ -750,4 +765,4 @@
 
 __END__
 
-#line 988
+#line 1003

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install.pm Sat Sep  2 17:59:35 2006
@@ -28,7 +28,7 @@
     # This is not enforced yet, but will be some time in the next few
     # releases once we can make sure it won't clash with custom
     # Module::Install extensions.
-    $VERSION = '0.61';
+    $VERSION = '0.64';
 }
 
 # Whether or not inc::Module::Install is actually loaded, the
@@ -51,6 +51,22 @@
 END_DIE
 }
 
+# If the script that is loading Module::Install is from the future,
+# then make will detect this and cause it to re-run over and over
+# again. This is bad. Rather than taking action to touch it (which
+# is unreliable on some platforms and requires write permissions)
+# for now we should catch this and refuse to run.
+if ( -f $0 and (stat($0))[9] > time ) {
+	die << "END_DIE";
+Your installer $0 has a modification time in the future.
+
+This is known to create infinite loops in make.
+
+Please correct this, then run $0 again.
+
+END_DIE
+}
+
 use Cwd        ();
 use File::Find ();
 use File::Path ();
@@ -116,7 +132,7 @@
     my %seen;
     foreach my $obj ( @exts ) {
         while (my ($method, $glob) = each %{ref($obj) . '::'}) {
-            next unless exists &{ref($obj).'::'.$method};
+            next unless $obj->can($method);
             next if $method =~ /^_/;
             next if $method eq uc($method);
             $seen{$method}++;

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/AutoInstall.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/AutoInstall.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/AutoInstall.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/AutoInstall.pm Sat Sep  2 17:59:35 2006
@@ -1,12 +1,15 @@
 #line 1
 package Module::Install::AutoInstall;
 
+use strict;
 use Module::Install::Base;
- at ISA = qw{Module::Install::Base};
 
-$VERSION = '0.61';
-
-use strict;
+use vars qw{$VERSION $ISCORE @ISA};
+BEGIN {
+	$VERSION = '0.64';
+	$ISCORE  = 1;
+	@ISA     = qw{Module::Install::Base};
+}
 
 sub AutoInstall { $_[0] }
 

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Base.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Base.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Base.pm Sat Sep  2 17:59:35 2006
@@ -1,7 +1,7 @@
 #line 1
 package Module::Install::Base;
 
-$VERSION = '0.61';
+$VERSION = '0.64';
 
 # Suspend handler for "redefined" warnings
 BEGIN {

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Build.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Build.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Build.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Build.pm Sat Sep  2 17:59:35 2006
@@ -1,12 +1,15 @@
 #line 1
 package Module::Install::Build;
 
+use strict;
 use Module::Install::Base;
- at ISA = qw(Module::Install::Base);
 
-$VERSION = '0.61';
-
-use strict;
+use vars qw{$VERSION $ISCORE @ISA};
+BEGIN {
+	$VERSION = '0.64';
+	$ISCORE  = 1;
+	@ISA     = qw{Module::Install::Base};
+}
 
 sub Build { $_[0] }
 
@@ -63,4 +66,4 @@
 
 __END__
 
-#line 177
+#line 180

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Can.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Can.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Can.pm Sat Sep  2 17:59:35 2006
@@ -9,12 +9,12 @@
 use File::Spec ();
 use ExtUtils::MakeMaker ();
 
-use vars qw{$VERSION @ISA};
+use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.61';
+	$VERSION = '0.64';
+	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
-
 
 # check if we can load some module
 ### Upgrade this to not have to load the module if possible

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Fetch.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Fetch.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Fetch.pm Sat Sep  2 17:59:35 2006
@@ -4,9 +4,10 @@
 use strict;
 use Module::Install::Base;
 
-use vars qw{$VERSION @ISA};
+use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.61';
+	$VERSION = '0.64';
+	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
 

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Include.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Include.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Include.pm Sat Sep  2 17:59:35 2006
@@ -1,12 +1,15 @@
 #line 1
 package Module::Install::Include;
 
+use strict;
 use Module::Install::Base;
- at ISA = qw(Module::Install::Base);
 
-$VERSION = '0.61';
-
-use strict;
+use vars qw{$VERSION $ISCORE @ISA};
+BEGIN {
+	$VERSION = '0.64';
+	$ISCORE  = 1;
+	@ISA     = qw{Module::Install::Base};
+}
 
 sub include {
 	shift()->admin->include(@_);

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Makefile.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Makefile.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Makefile.pm Sat Sep  2 17:59:35 2006
@@ -5,9 +5,10 @@
 use Module::Install::Base;
 use ExtUtils::MakeMaker ();
 
-use vars qw{$VERSION @ISA};
+use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.61';
+	$VERSION = '0.64';
+	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
 
@@ -168,6 +169,15 @@
     $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
     $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
 
+    # Module::Install will never be used to build the Core Perl
+    # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
+    # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
+    $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
+    #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
+
+    # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
+    $makefile =~ s/("?)-I\$\(PERL_LIB\)\1//g;
+
     # XXX - This is currently unused; not sure if it breaks other MM-users
     # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
 
@@ -195,4 +205,4 @@
 
 __END__
 
-#line 324
+#line 334

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Metadata.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Metadata.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Metadata.pm Sat Sep  2 17:59:35 2006
@@ -1,12 +1,15 @@
 #line 1
 package Module::Install::Metadata;
 
+use strict 'vars';
 use Module::Install::Base;
- at ISA = qw{Module::Install::Base};
-
-$VERSION = '0.61';
-
-use strict 'vars';
+
+use vars qw{$VERSION $ISCORE @ISA};
+BEGIN {
+	$VERSION = '0.64';
+	$ISCORE  = 1;
+	@ISA     = qw{Module::Install::Base};
+}
 
 my @scalar_keys = qw{
     name module_name abstract author version license
@@ -120,9 +123,9 @@
 
     require Module::Build;
     my $build = Module::Build->new(
-        dist_name    => $self->{name},
-        dist_version => $self->{version},
-        license      => $self->{license},
+        dist_name    => $self->name,
+        dist_version => $self->version,
+        license      => $self->license,
     );
     $self->provides(%{ $build->find_dist_packages || {} });
 }
@@ -235,11 +238,13 @@
         ^
         use \s*
         v?
-        ([\d\.]+)
+        ([\d_\.]+)
         \s* ;
     /ixms
       )
     {
+        my $v = $1;
+        $v =~ s{_}{}g;
         $self->perl_version($1);
     }
     else {

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Win32.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Win32.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/Win32.pm Sat Sep  2 17:59:35 2006
@@ -4,9 +4,10 @@
 use strict;
 use Module::Install::Base;
 
-use vars qw{$VERSION @ISA};
+use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.61';
+	$VERSION = '0.64';
+	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
 

Modified: packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm Sat Sep  2 17:59:35 2006
@@ -1,12 +1,15 @@
 #line 1
 package Module::Install::WriteAll;
 
+use strict;
 use Module::Install::Base;
- at ISA = qw(Module::Install::Base);
 
-$VERSION = '0.61';
-
-use strict;
+use vars qw{$VERSION $ISCORE @ISA};
+BEGIN {
+	$VERSION = '0.64';
+	$ISCORE  = 1;
+	@ISA     = qw{Module::Install::Base};
+}
 
 sub WriteAll {
     my $self = shift;

Modified: packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom.pm Sat Sep  2 17:59:35 2006
@@ -28,7 +28,7 @@
 
 use base qw( XML::Atom::ErrorHandler Exporter );
 
-our $VERSION = '0.22';
+our $VERSION = '0.23';
 
 package XML::Atom::Namespace;
 use strict;

Modified: packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Base.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Base.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Base.pm Sat Sep  2 17:59:35 2006
@@ -1,4 +1,4 @@
-# $Id: /mirror/cpan/xml-atom/trunk/lib/XML/Atom/Base.pm 3115 2006-07-19T09:44:39.775294Z miyagawa  $
+# $Id: /mirror/code/XML-Atom/trunk/lib/XML/Atom/Base.pm 4088 2006-08-27T05:50:44.603134Z miyagawa  $
 
 package XML::Atom::Base;
 use strict;
@@ -202,6 +202,30 @@
 sub attributes {
     my $class = shift;
     @{ $class->__attributes };
+}
+
+sub mk_xml_attr_accessors {
+    my($class, @list) = @_;
+    no strict 'refs';
+    for my $attr (@list) {
+        (my $meth = $attr) =~ tr/\-/_/;
+        *{"${class}::$meth"} = sub {
+            my $obj = shift;
+            if (LIBXML) {
+                my $elem = $obj->elem;
+                if (@_) {
+                    $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
+                                          $attr, $_[0]);
+                }
+                return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', $attr);
+            } else {
+                if (@_) {
+                    $obj->elem->setAttribute("xml:$attr", $_[0]);
+                }
+                return $obj->elem->getAttribute("xml:$attr");
+            }
+        };
+    }
 }
 
 sub mk_object_accessor {

Modified: packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Content.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Content.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Content.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Content.pm Sat Sep  2 17:59:35 2006
@@ -4,7 +4,8 @@
 use strict;
 use base qw( XML::Atom::Base );
 
-__PACKAGE__->mk_attr_accessors(qw( type mode lang base ));
+__PACKAGE__->mk_attr_accessors(qw( type mode ));
+__PACKAGE__->mk_xml_attr_accessors(qw( lang base ));
 
 use Encode;
 use XML::Atom;

Modified: packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Feed.pm?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Feed.pm (original)
+++ packages/libxml-atom-perl/branches/upstream/current/lib/XML/Atom/Feed.pm Sat Sep  2 17:59:35 2006
@@ -76,7 +76,7 @@
             $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
                 'lang', $_[0]);
         }
-        return $elem->getAttribute('lang');
+        return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', 'lang');
     } else {
         if (@_) {
             $feed->elem->setAttribute('xml:lang', $_[0]);

Modified: packages/libxml-atom-perl/branches/upstream/current/t/19-ext.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/t/19-ext.t?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/t/19-ext.t (original)
+++ packages/libxml-atom-perl/branches/upstream/current/t/19-ext.t Sat Sep  2 17:59:35 2006
@@ -1,4 +1,4 @@
-# $Id: /mirror/cpan/xml-atom/trunk/t/19-ext.t 2891 2006-06-29T04:18:47.205655Z btrott  $
+# $Id: /mirror/code/XML-Atom/trunk/t/19-ext.t 3517 2006-08-16T05:34:19.378835Z miyagawa  $
 
 use strict;
 use FindBin;

Modified: packages/libxml-atom-perl/branches/upstream/current/t/20-content-xhtml.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-atom-perl/branches/upstream/current/t/20-content-xhtml.t?rev=3585&op=diff
==============================================================================
--- packages/libxml-atom-perl/branches/upstream/current/t/20-content-xhtml.t (original)
+++ packages/libxml-atom-perl/branches/upstream/current/t/20-content-xhtml.t Sat Sep  2 17:59:35 2006
@@ -1,4 +1,4 @@
-# $Id: /mirror/cpan/xml-atom/trunk/t/20-content-xhtml.t 2903 2006-07-06T01:15:36.512143Z btrott  $
+# $Id: /mirror/code/XML-Atom/trunk/t/20-content-xhtml.t 3518 2006-08-16T05:34:58.799705Z miyagawa  $
 
 use strict;
 use XML::Atom;




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