r27660 - in /trunk/libxml-writer-perl: Changes LICENSE MANIFEST META.yml Makefile.PL Writer.pm debian/changelog t/01_main.t

bricas-guest at users.alioth.debian.org bricas-guest at users.alioth.debian.org
Tue Dec 2 16:38:48 UTC 2008


Author: bricas-guest
Date: Tue Dec  2 16:38:45 2008
New Revision: 27660

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27660
Log:
New upstream release.

Added:
    trunk/libxml-writer-perl/LICENSE
      - copied unchanged from r27659, branches/upstream/libxml-writer-perl/current/LICENSE
Modified:
    trunk/libxml-writer-perl/Changes
    trunk/libxml-writer-perl/MANIFEST
    trunk/libxml-writer-perl/META.yml
    trunk/libxml-writer-perl/Makefile.PL
    trunk/libxml-writer-perl/Writer.pm
    trunk/libxml-writer-perl/debian/changelog
    trunk/libxml-writer-perl/t/01_main.t

Modified: trunk/libxml-writer-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/Changes?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/Changes (original)
+++ trunk/libxml-writer-perl/Changes Tue Dec  2 16:38:45 2008
@@ -1,4 +1,10 @@
 Revision history for Perl extension XML::Writer.
+
+0.605 Mon Dec  1 23:01:21 GMT 2008    <joe at kafsemo.org>
+        - Use MIT license, formalising David Megginson's original
+           ("No warranty. Commercial and non-commercial use freely
+           permitted.").
+        - Fix from Yanick Champoux for dataElements namespaces (#41359).
 
 0.604 Thu Feb 21 00:42:06 GMT 2008    <joe at kafsemo.org>
         - Patch from Andreas Koenig for lc(undef) warning in 5.11 (#32874).

Modified: trunk/libxml-writer-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/MANIFEST?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/MANIFEST (original)
+++ trunk/libxml-writer-perl/MANIFEST Tue Dec  2 16:38:45 2008
@@ -15,3 +15,4 @@
 examples/data-mode-sample.pl
 examples/writing-unicode.pl
 examples/directory-as-atom.pl
+LICENSE

Modified: trunk/libxml-writer-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/META.yml?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/META.yml (original)
+++ trunk/libxml-writer-perl/META.yml Tue Dec  2 16:38:45 2008
@@ -1,20 +1,21 @@
 --- #YAML:1.0
 meta-spec:
   version: 1.2
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
+  url: http://module-build.sourceforge.net/META-spec-v1.3.html
 name:         XML-Writer
-version:      0.604
+version:      0.605
 abstract:     Easily generate well-formed, namespace-aware XML.
 author:
   - David Megginson <david at megginson.com>
   - Ed Avis <ed at membled.com>
   - Joseph Walton <joe at kafsemo.org>
-license:      perl
+license:      mit
 distribution_type: module
 installdirs:  site
 
 build_requires:
   perl: 5.006_000
+  Test::More: 0.047
 recommends:
   perl: 5.008_001
 

Modified: trunk/libxml-writer-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/Makefile.PL?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/Makefile.PL (original)
+++ trunk/libxml-writer-perl/Makefile.PL Tue Dec  2 16:38:45 2008
@@ -7,7 +7,7 @@
 # the contents of the Makefile that is written.
 WriteMakefile(
     'NAME'    => 'XML::Writer',
-    'VERSION' => '0.604',
+    'VERSION' => '0.605',
 
     # A manually-created META.yml has all the other metadata;
     #  we don't want it overwritten

Modified: trunk/libxml-writer-perl/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/Writer.pm?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/Writer.pm (original)
+++ trunk/libxml-writer-perl/Writer.pm Tue Dec  2 16:38:45 2008
@@ -4,7 +4,7 @@
 # Copyright (c) 2004, 2005 by Joseph Walton <joe at kafsemo.org>.
 # No warranty.  Commercial and non-commercial use freely permitted.
 #
-# $Id: Writer.pm 185 2008-02-21 00:51:34Z josephw $
+# $Id: Writer.pm 193 2008-12-01 23:15:17Z josephw $
 ########################################################################
 
 package XML::Writer;
@@ -15,7 +15,7 @@
 use vars qw($VERSION);
 use Carp;
 use IO::Handle;
-$VERSION = "0.604";
+$VERSION = "0.605";
 
 
 
@@ -575,8 +575,8 @@
 # Write a simple data element.
 #
 sub dataElement {
-  my ($self, $name, $data, %atts) = (@_);
-  $self->startTag($name, %atts);
+  my ($self, $name, $data, @atts) = (@_);
+  $self->startTag($name, @atts);
   $self->characters($data);
   $self->endTag($name);
 }
@@ -1614,12 +1614,15 @@
 David Megginson E<lt>david at megginson.comE<gt>
 
 
-=head1 COPYRIGHT
+=head1 COPYRIGHT AND LICENSE
 
 Copyright 1999, 2000 David Megginson E<lt>david at megginson.comE<gt>
 
 Copyright 2004, 2005 Joseph Walton E<lt>joe at kafsemo.orgE<gt>
 
+This module is free software; you can redistribute it and/or
+modify it under the terms of the MIT License. See the F<LICENSE> file
+included with this distribution.
 
 =head1 SEE ALSO
 

Modified: trunk/libxml-writer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/debian/changelog?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/debian/changelog (original)
+++ trunk/libxml-writer-perl/debian/changelog Tue Dec  2 16:38:45 2008
@@ -1,7 +1,11 @@
-libxml-writer-perl (0.604-2) UNRELEASED; urgency=low
-
+libxml-writer-perl (0.605-1) UNRELEASED; urgency=low
+
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
+
+  [ Brian Cassidy ]
+  * New upstream release.
 
  -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:49:34 +0100
 

Modified: trunk/libxml-writer-perl/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-writer-perl/t/01_main.t?rev=27660&op=diff
==============================================================================
--- trunk/libxml-writer-perl/t/01_main.t (original)
+++ trunk/libxml-writer-perl/t/01_main.t Tue Dec  2 16:38:45 2008
@@ -5,7 +5,7 @@
 # Copyright (c) 2004 - 2006 by Joseph Walton <joe at kafsemo.org>.
 # No warranty.  Commercial and non-commercial use freely permitted.
 #
-# $Id: 01_main.t 177 2007-06-24 22:03:53Z josephw $
+# $Id: 01_main.t 191 2008-12-01 22:30:22Z josephw $
 ########################################################################
 
 # Before 'make install' is performed this script should be runnable with
@@ -13,7 +13,7 @@
 
 use strict;
 
-use Test::More(tests => 217);
+use Test::More(tests => 220);
 
 
 # Catch warnings
@@ -447,6 +447,14 @@
 	$w->startTag('bar');
 	ok($w->within_element('foo') && $w->within_element('bar'),
 		'within_element should know about all elements above us');
+};
+
+# within_element returning false
+TEST: {
+	initEnv();
+	$w->startTag('foo');
+	ok(!$w->within_element('bar'),
+		'within_element should return false for non-parent elements');
 };
 
 # current_element query
@@ -1809,6 +1817,20 @@
 	checkResult("<x a=\"]]&gt;\" />\n", "]]> must be escaped in attributes");
 };
 
+# #41359 - ensure dataElement expands namespace attributes
+TEST: {
+	initEnv();
+
+	my $ns = 'http://foo';
+	$w->addPrefix($ns => 'foo');
+
+	$w->startTag('doc');
+	$w->dataElement( [$ns, 'bar'], 'yadah', [$ns, 'baz'] => 'x' );
+	$w->endTag('doc');
+
+	checkResult('<doc><foo:bar foo:baz="x" xmlns:foo="http://foo">yadah</foo:bar></doc>',
+		"A dataElement call must expand namespace attributes");
+};
 
 # Free test resources
 $outputFile->close() or die "Unable to close temporary file: $!";




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