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 <joe@kafsemo.org> + - Escape all necessary white space in attributes (#25499). + 0.602 Sat Nov 11 16:54:22 GMT 2006 <joe@kafsemo.org> - 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 <david@megginson.com> 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 <joe@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: $!"; 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 <joe@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""); } ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org