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

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Jul 14 23:15:46 UTC 2007 

Author: gregoa-guest
Date: Sat Jul 14 23:15:46 2007
New Revision: 5818

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

Modified:
    packages/libxml-writer-perl/trunk/Changes
    packages/libxml-writer-perl/trunk/META.yml
    packages/libxml-writer-perl/trunk/Makefile.PL
    packages/libxml-writer-perl/trunk/Writer.pm
    packages/libxml-writer-perl/trunk/debian/changelog
    packages/libxml-writer-perl/trunk/t/01_main.t

Modified: packages/libxml-writer-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Changes?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Changes (original)
+++ packages/libxml-writer-perl/trunk/Changes Sat Jul 14 23:15:46 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/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/META.yml?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/META.yml (original)
+++ packages/libxml-writer-perl/trunk/META.yml Sat Jul 14 23:15:46 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/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Makefile.PL?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Makefile.PL (original)
+++ packages/libxml-writer-perl/trunk/Makefile.PL Sat Jul 14 23:15:46 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/trunk/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Writer.pm?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Writer.pm (original)
+++ packages/libxml-writer-perl/trunk/Writer.pm Sat Jul 14 23:15:46 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/\&#10\;/g;
+      $value =~ s/\x0d/\&#13\;/g;
+      $value =~ s/\x09/\&#9\;/g;
       &{$escapeEncoding}($value);
       $output->print(" $aname=\"$value\"");
     }

Modified: packages/libxml-writer-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/debian/changelog?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/debian/changelog (original)
+++ packages/libxml-writer-perl/trunk/debian/changelog Sat Jul 14 23:15:46 2007
@@ -1,3 +1,9 @@
+libxml-writer-perl (0.603-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sun, 15 Jul 2007 01:14:33 +0200
+
 libxml-writer-perl (0.602-1) unstable; urgency=low
 
   * New upstream release.

Modified: packages/libxml-writer-perl/trunk/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/t/01_main.t?rev=5818&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/t/01_main.t (original)
+++ packages/libxml-writer-perl/trunk/t/01_main.t Sat Jul 14 23:15:46 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&#10;\x0D " />
+<x a="&#9;&#10;&#13; " />
 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&#10;B&#13;C&#9;D&#9;&#13;&#10;\" />\n", 'Newlines in attribute values should be escaped');
+};
+
+# #25499 - ]]> must be represented as ]]&lt; in attributes
+TEST: {
+	initEnv();
+
+	$w->emptyTag('x', 'a' => ']]>');
+	$w->end();
+
+	checkResult("<x a=\"]]&gt;\" />\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