r5816 - in /packages/libxml-writer-perl/branches/upstream/current: Changes META.yml Makefile.PL Writer.pm t/01_main.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Jul 14 23:14:21 UTC 2007
Author: gregoa-guest
Date: Sat Jul 14 23:14:21 2007
New Revision: 5816
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5816
Log:
[svn-upgrade] Integrating new upstream version, libxml-writer-perl (0.603)
Modified:
packages/libxml-writer-perl/branches/upstream/current/Changes
packages/libxml-writer-perl/branches/upstream/current/META.yml
packages/libxml-writer-perl/branches/upstream/current/Makefile.PL
packages/libxml-writer-perl/branches/upstream/current/Writer.pm
packages/libxml-writer-perl/branches/upstream/current/t/01_main.t
Modified: packages/libxml-writer-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/branches/upstream/current/Changes?rev=5816&op=diff
==============================================================================
--- packages/libxml-writer-perl/branches/upstream/current/Changes (original)
+++ packages/libxml-writer-perl/branches/upstream/current/Changes Sat Jul 14 23:14:21 2007
@@ -1,4 +1,7 @@
Revision history for Perl extension XML::Writer.
+
+0.603 Mon Jun 25 22:31:40 BST 2007 <joe at kafsemo.org>
+ - Escape all necessary white space in attributes (#25499).
0.602 Sat Nov 11 16:54:22 GMT 2006 <joe at kafsemo.org>
- Fix bugs in test case to avoid breaking with new Perls.
Modified: packages/libxml-writer-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/branches/upstream/current/META.yml?rev=5816&op=diff
==============================================================================
--- packages/libxml-writer-perl/branches/upstream/current/META.yml (original)
+++ packages/libxml-writer-perl/branches/upstream/current/META.yml Sat Jul 14 23:14:21 2007
@@ -3,7 +3,7 @@
version: 1.2
url: http://module-build.sourceforge.net/META-spec-v1.2.html
name: XML-Writer
-version: 0.602
+version: 0.603
abstract: Easily generate well-formed, namespace-aware XML.
author:
- David Megginson <david at megginson.com>
Modified: packages/libxml-writer-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/branches/upstream/current/Makefile.PL?rev=5816&op=diff
==============================================================================
--- packages/libxml-writer-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libxml-writer-perl/branches/upstream/current/Makefile.PL Sat Jul 14 23:14:21 2007
@@ -7,7 +7,7 @@
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'XML::Writer',
- 'VERSION' => '0.602',
+ 'VERSION' => '0.603',
# A manually-created META.yml has all the other metadata;
# we don't want it overwritten
Modified: packages/libxml-writer-perl/branches/upstream/current/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/branches/upstream/current/Writer.pm?rev=5816&op=diff
==============================================================================
--- packages/libxml-writer-perl/branches/upstream/current/Writer.pm (original)
+++ packages/libxml-writer-perl/branches/upstream/current/Writer.pm Sat Jul 14 23:14:21 2007
@@ -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 176 2006-11-12 20:22:35Z josephw $
+# $Id: Writer.pm 178 2007-06-25 21:35:24Z josephw $
########################################################################
package XML::Writer;
@@ -15,7 +15,7 @@
use vars qw($VERSION);
use Carp;
use IO::Handle;
-$VERSION = "0.602";
+$VERSION = "0.603";
@@ -90,6 +90,8 @@
my $aname = $atts->[$i++];
my $value = _escapeLiteral($atts->[$i++]);
$value =~ s/\x0a/\
\;/g;
+ $value =~ s/\x0d/\
\;/g;
+ $value =~ s/\x09/\	\;/g;
&{$escapeEncoding}($value);
$output->print(" $aname=\"$value\"");
}
Modified: packages/libxml-writer-perl/branches/upstream/current/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/branches/upstream/current/t/01_main.t?rev=5816&op=diff
==============================================================================
--- packages/libxml-writer-perl/branches/upstream/current/t/01_main.t (original)
+++ packages/libxml-writer-perl/branches/upstream/current/t/01_main.t Sat Jul 14 23:14:21 2007
@@ -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 175 2006-11-11 16:54:22Z josephw $
+# $Id: 01_main.t 177 2007-06-24 22:03:53Z josephw $
########################################################################
# Before 'make install' is performed this script should be runnable with
@@ -13,7 +13,7 @@
use strict;
-use Test::More(tests => 213);
+use Test::More(tests => 217);
# Catch warnings
@@ -1675,10 +1675,10 @@
$w->emptyTag('x', 'a' => "\x09\x0A\x0D ");
$w->end();
- # Currently, \u000A is escaped. This test is for lack of errors,
+ # \u0009, \u000A and \u000D are escaped. This test is for lack of errors,
# not exact serialisation, so change it if necessary.
checkResult(<<"EOR", 'Whitespace below \u0020 is valid.');
-<x a="\x09 \x0D " />
+<x a="	 " />
EOR
}
@@ -1789,6 +1789,26 @@
EOR
}
+# #25499 - all three whitespace characters should be escaped in attributes
+TEST: {
+ initEnv();
+
+ $w->emptyTag('x', 'a' => "A\nB\rC\tD\t\r\n");
+ $w->end();
+
+ checkResult("<x a=\"A B C	D	 \" />\n", 'Newlines in attribute values should be escaped');
+};
+
+# #25499 - ]]> must be represented as ]]< in attributes
+TEST: {
+ initEnv();
+
+ $w->emptyTag('x', 'a' => ']]>');
+ $w->end();
+
+ checkResult("<x a=\"]]>\" />\n", "]]> must be escaped in attributes");
+};
+
# Free test resources
$outputFile->close() or die "Unable to close temporary file: $!";
More information about the Pkg-perl-cvs-commits
mailing list