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=\"]]>\" />\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