r27658 - in /branches/upstream/libxml-writer-perl/current: Changes LICENSE MANIFEST META.yml Makefile.PL Writer.pm t/01_main.t

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

Author: bricas-guest
Date: Tue Dec  2 16:32:46 2008
New Revision: 27658

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27658
Log:
[svn-upgrade] Integrating new upstream version, libxml-writer-perl (0.605)

Added:
    branches/upstream/libxml-writer-perl/current/LICENSE
Modified:
    branches/upstream/libxml-writer-perl/current/Changes
    branches/upstream/libxml-writer-perl/current/MANIFEST
    branches/upstream/libxml-writer-perl/current/META.yml
    branches/upstream/libxml-writer-perl/current/Makefile.PL
    branches/upstream/libxml-writer-perl/current/Writer.pm
    branches/upstream/libxml-writer-perl/current/t/01_main.t

Modified: branches/upstream/libxml-writer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Changes?rev=27658&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Changes (original)
+++ branches/upstream/libxml-writer-perl/current/Changes Tue Dec  2 16:32:46 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).

Added: branches/upstream/libxml-writer-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/LICENSE?rev=27658&op=file
==============================================================================
--- branches/upstream/libxml-writer-perl/current/LICENSE (added)
+++ branches/upstream/libxml-writer-perl/current/LICENSE Tue Dec  2 16:32:46 2008
@@ -1,0 +1,22 @@
+The MIT License
+
+Copyright 1999, 2000 David Megginson
+Copyright 2004, 2005 Joseph Walton
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

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

Modified: branches/upstream/libxml-writer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/META.yml?rev=27658&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/META.yml (original)
+++ branches/upstream/libxml-writer-perl/current/META.yml Tue Dec  2 16:32:46 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: branches/upstream/libxml-writer-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Makefile.PL?rev=27658&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Makefile.PL (original)
+++ branches/upstream/libxml-writer-perl/current/Makefile.PL Tue Dec  2 16:32:46 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: branches/upstream/libxml-writer-perl/current/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Writer.pm?rev=27658&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Writer.pm (original)
+++ branches/upstream/libxml-writer-perl/current/Writer.pm Tue Dec  2 16:32:46 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: branches/upstream/libxml-writer-perl/current/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/t/01_main.t?rev=27658&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/t/01_main.t (original)
+++ branches/upstream/libxml-writer-perl/current/t/01_main.t Tue Dec  2 16:32:46 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