Hello community,
here is the log from the commit of package perl-XML-Writer
checked in at Thu Jul 5 01:26:49 CEST 2007.
--------
--- perl-XML-Writer/perl-XML-Writer.changes 2006-12-13 13:43:02.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-XML-Writer/perl-XML-Writer.changes 2007-07-03 08:46:26.000000000 +0200
@@ -1,0 +2,6 @@
+Tue Jul 3 08:32:16 CEST 2007 - anicka@suse.cz
+
+- update to 0.603
+ * Escape all necessary white space in attributes
+
+-------------------------------------------------------------------
Old:
----
XML-Writer-0.602.tar.bz2
New:
----
XML-Writer-0.603.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-XML-Writer.spec ++++++
--- /var/tmp/diff_new_pack.gCT365/_old 2007-07-05 01:26:30.000000000 +0200
+++ /var/tmp/diff_new_pack.gCT365/_new 2007-07-05 01:26:30.000000000 +0200
@@ -1,7 +1,7 @@
#
-# spec file for package perl-XML-Writer (Version 0.602)
+# spec file for package perl-XML-Writer (Version 0.603)
#
-# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
# package are under the same license as the package itself.
#
@@ -11,12 +11,12 @@
# norootforbuild
Name: perl-XML-Writer
-Version: 0.602
+Version: 0.603
Release: 1
Requires: perl = %{perl_version}
Autoreqprov: on
Group: Development/Libraries/Perl
-License: Artistic License, GNU General Public License (GPL)
+License: Artistic License, GPL v2 or later
URL: http://cpan.org/modules/by-module/XML/
Summary: A Perl Extension for Writing XML Documents
Source: XML-Writer-%{version}.tar.bz2
@@ -58,7 +58,10 @@
%{perl_vendorarch}/auto/XML
/var/adm/perl-modules/%{name}
-%changelog -n perl-XML-Writer
+%changelog
+* Tue Jul 03 2007 - anicka@suse.cz
+- update to 0.603
+ * Escape all necessary white space in attributes
* Wed Dec 13 2006 - anicka@suse.cz
- update to 0.602
* Fix bugs in test case to avoid breaking with new Perls.
++++++ XML-Writer-0.602.tar.bz2 -> XML-Writer-0.603.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.602/Changes new/XML-Writer-0.603/Changes
--- old/XML-Writer-0.602/Changes 2006-11-12 21:22:35.000000000 +0100
+++ new/XML-Writer-0.603/Changes 2007-06-25 23:47:49.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl extension XML::Writer.
+0.603 Mon Jun 25 22:31:40 BST 2007
+ - Escape all necessary white space in attributes (#25499).
+
0.602 Sat Nov 11 16:54:22 GMT 2006
- Fix bugs in test case to avoid breaking with new Perls.
- Make test case work with older Perls, tested against 5.004 (#17288).
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.602/Makefile.PL new/XML-Writer-0.603/Makefile.PL
--- old/XML-Writer-0.602/Makefile.PL 2006-11-12 21:22:35.000000000 +0100
+++ new/XML-Writer-0.603/Makefile.PL 2007-06-25 23:35:24.000000000 +0200
@@ -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
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.602/META.yml new/XML-Writer-0.603/META.yml
--- old/XML-Writer-0.602/META.yml 2006-11-12 21:22:35.000000000 +0100
+++ new/XML-Writer-0.603/META.yml 2007-06-25 23:35:24.000000000 +0200
@@ -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
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.602/t/01_main.t new/XML-Writer-0.603/t/01_main.t
--- old/XML-Writer-0.602/t/01_main.t 2006-11-11 17:54:22.000000000 +0100
+++ new/XML-Writer-0.603/t/01_main.t 2007-06-25 00:03:53.000000000 +0200
@@ -5,7 +5,7 @@
# Copyright (c) 2004 - 2006 by Joseph Walton .
# 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("\n", 'Newlines in attribute values should be escaped');
+};
+
+# #25499 - ]]> must be represented as ]]< in attributes
+TEST: {
+ initEnv();
+
+ $w->emptyTag('x', 'a' => ']]>');
+ $w->end();
+
+ checkResult("\n", "]]> must be escaped in attributes");
+};
+
# Free test resources
$outputFile->close() or die "Unable to close temporary file: $!";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.602/Writer.pm new/XML-Writer-0.603/Writer.pm
--- old/XML-Writer-0.602/Writer.pm 2006-11-12 21:22:35.000000000 +0100
+++ new/XML-Writer-0.603/Writer.pm 2007-06-25 23:35:24.000000000 +0200
@@ -4,7 +4,7 @@
# Copyright (c) 2004, 2005 by Joseph Walton .
# 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\"");
}
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org