Hello community,
here is the log from the commit of package perl-XML-Writer
checked in at Thu Dec 14 02:05:38 CET 2006.
--------
--- perl-XML-Writer/perl-XML-Writer.changes 2006-09-15 19:57:31.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-XML-Writer/perl-XML-Writer.changes 2006-12-13 13:43:02.000000000 +0100
@@ -1,0 +2,8 @@
+Wed Dec 13 12:17:22 CET 2006 - anicka@suse.cz
+
+- update to 0.602
+ * Fix bugs in test case to avoid breaking with new Perls.
+ * Make test case work with older Perls, tested against 5.004
+ * Include pod syntax and coverage tests.
+
+-------------------------------------------------------------------
Old:
----
XML-Writer-0.601.tar.bz2
New:
----
XML-Writer-0.602.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-XML-Writer.spec ++++++
--- /var/tmp/diff_new_pack.asMVvh/_old 2006-12-14 02:05:29.000000000 +0100
+++ /var/tmp/diff_new_pack.asMVvh/_new 2006-12-14 02:05:29.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-XML-Writer (Version 0.601)
+# spec file for package perl-XML-Writer (Version 0.602)
#
# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -11,12 +11,12 @@
# norootforbuild
Name: perl-XML-Writer
-Version: 0.601
+Version: 0.602
Release: 1
Requires: perl = %{perl_version}
Autoreqprov: on
Group: Development/Libraries/Perl
-License: GPL, Artistic License
+License: Artistic License, GNU General Public License (GPL)
URL: http://cpan.org/modules/by-module/XML/
Summary: A Perl Extension for Writing XML Documents
Source: XML-Writer-%{version}.tar.bz2
@@ -59,6 +59,11 @@
/var/adm/perl-modules/%{name}
%changelog -n perl-XML-Writer
+* Wed Dec 13 2006 - anicka@suse.cz
+- update to 0.602
+ * Fix bugs in test case to avoid breaking with new Perls.
+ * Make test case work with older Perls, tested against 5.004
+ * Include pod syntax and coverage tests.
* Thu Sep 14 2006 - anicka@suse.cz
- update to 0.601
* Don't modify list references passed as tag or attribute names
++++++ XML-Writer-0.601.tar.bz2 -> XML-Writer-0.602.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Changes new/XML-Writer-0.602/Changes
--- old/XML-Writer-0.601/Changes 2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Changes 2006-11-12 21:22:35.000000000 +0100
@@ -1,5 +1,10 @@
Revision history for Perl extension XML::Writer.
+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).
+ - Include pod syntax and coverage tests.
+
0.601 Fri Sep 1 15:01:45 BST 2006
- Don't modify list references passed as tag or attribute names
(cpan #14854).
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/MANIFEST new/XML-Writer-0.602/MANIFEST
--- old/XML-Writer-0.601/MANIFEST 2004-05-25 15:28:54.000000000 +0200
+++ new/XML-Writer-0.602/MANIFEST 2006-09-23 23:26:58.000000000 +0200
@@ -5,4 +5,6 @@
META.yml
Writer.pm
t/01_main.t
+t/pod.t
+t/pod-coverage.t
TODO
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/META.yml new/XML-Writer-0.602/META.yml
--- old/XML-Writer-0.601/META.yml 2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/META.yml 2006-11-12 21:22:35.000000000 +0100
@@ -1,10 +1,11 @@
-# http://module-build.sourceforge.net/META-spec-new.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-meta-spec: 1.1
+--- #YAML:1.0
+meta-spec:
+ version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
name: XML-Writer
-version: 0.601
+version: 0.602
abstract: Easily generate well-formed, namespace-aware XML.
-authored_by:
+author:
- David Megginson
- Ed Avis
- Joseph Walton
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Makefile.PL new/XML-Writer-0.602/Makefile.PL
--- old/XML-Writer-0.601/Makefile.PL 2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Makefile.PL 2006-11-12 21:22:35.000000000 +0100
@@ -7,7 +7,7 @@
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'XML::Writer',
- 'VERSION' => '0.601',
+ 'VERSION' => '0.602',
# 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.601/Writer.pm new/XML-Writer-0.602/Writer.pm
--- old/XML-Writer-0.601/Writer.pm 2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Writer.pm 2006-11-12 21:22:35.000000000 +0100
@@ -4,7 +4,7 @@
# Copyright (c) 2004, 2005 by Joseph Walton .
# No warranty. Commercial and non-commercial use freely permitted.
#
-# $Id: Writer.pm 166 2006-09-01 14:17:24Z josephw $
+# $Id: Writer.pm 176 2006-11-12 20:22:35Z josephw $
########################################################################
package XML::Writer;
@@ -15,7 +15,7 @@
use vars qw($VERSION);
use Carp;
use IO::Handle;
-$VERSION = "0.601";
+$VERSION = "0.602";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/01_main.t new/XML-Writer-0.602/t/01_main.t
--- old/XML-Writer-0.601/t/01_main.t 2006-09-01 16:01:45.000000000 +0200
+++ new/XML-Writer-0.602/t/01_main.t 2006-11-11 17:54:22.000000000 +0100
@@ -5,7 +5,7 @@
# Copyright (c) 2004 - 2006 by Joseph Walton .
# No warranty. Commercial and non-commercial use freely permitted.
#
-# $Id: 01_main.t 164 2006-09-01 14:01:45Z josephw $
+# $Id: 01_main.t 175 2006-11-11 16:54:22Z josephw $
########################################################################
# Before 'make install' is performed this script should be runnable with
@@ -42,7 +42,12 @@
require XML::Writer;
-wasNoWarning('Loading XML::Writer should not result in warnings');
+SKIP: {
+ skip "Perls before 5.6 always warn when loading XML::Writer", 1 if $] <=
+ 5.006;
+
+ wasNoWarning('Loading XML::Writer should not result in warnings');
+}
use IO::File;
@@ -68,7 +73,7 @@
# Reset the scratch file
$outputFile->seek(0, 0);
$outputFile->truncate(0);
- binmode($outputFile, ':raw');
+ binmode($outputFile, ':raw') if $] >= 5.006;
# Overwrite OUTPUT so it goes to the scratch file
$args{'OUTPUT'} = $outputFile;
@@ -721,7 +726,7 @@
$w->emptyTag('elem', ['http://www.w3.org/XML/1998/namespace', 'space'] => 'preserve');
$w->end();
- if (!unlike(getBufStr(), qr/1998/, "No declaration should be generated for the 'xml:' prefix"))
+ if (!unlike(getBufStr(), '/1998/', "No declaration should be generated for the 'xml:' prefix"))
{
diag(getBufStr());
}
@@ -742,7 +747,7 @@
$w->endTag('doc');
$w->end();
- if (!unlike(getBufStr(), qr/uri:test.*uri:test/, 'An API should allow forced namespace declarations'))
+ if (!unlike(getBufStr(), '/uri:test.*uri:test/', 'An API should allow forced namespace declarations'))
{
diag(getBufStr());
}
@@ -1360,7 +1365,13 @@
$w->comment("\$ \x{A3} \x{20AC}");
$w->startTag('a');
$w->dataElement('b', '$');
- $w->dataElement('b', "\x{A3}");
+
+ # I need U+00A3 as an is_utf8 string; I want to keep the source ASCII.
+ # There must be a better way to do this.
+ require Encode;
+ my $text = Encode::decode('iso-8859-1', "\x{A3}");
+ $w->dataElement('b', $text);
+
$w->dataElement('b', "\x{20AC}");
$w->startTag('c');
$w->cdata(" \$ \x{A3} \x{20AC} ");
@@ -1383,6 +1394,7 @@
# Capture generated XML in a scalar
TEST: {
+ initEnv();
my $s;
$w = new XML::Writer(OUTPUT => \$s);
@@ -1395,6 +1407,7 @@
# Modify the scalar during capture
TEST: {
+ initEnv();
my $s;
$w = new XML::Writer(OUTPUT => \$s);
@@ -1411,6 +1424,7 @@
# Ensure that ENCODING and SCALAR don't cause failure when used together
TEST: {
+ initEnv();
my $s;
ok(eval {$w = new XML::Writer(OUTPUT => \$s,
@@ -1429,6 +1443,7 @@
SKIP: {
skip $unicodeSkipMessage, 2 unless isUnicodeSupported();
+ initEnv();
my $s;
$w = new XML::Writer(OUTPUT => \$s);
@@ -1482,8 +1497,11 @@
# Make sure non-ASCII characters that can't be represented
# as references cause failure
- my $text = "\x{A3}";
-# utf8::upgrade($text);
+
+ # I need U+00A3 as an is_utf8 string; I want to keep the source ASCII.
+ # There must be a better way to do this.
+ require Encode;
+ my $text = Encode::decode('iso-8859-1', "\x{A3}");
initEnv(ENCODING => 'us-ascii', DATA_MODE => 1);
$w->startTag('a');
@@ -1692,7 +1710,9 @@
}
# Cover XML declaration encoding cases
-TEST: {
+SKIP: {
+ skip $unicodeSkipMessage, 8 unless isUnicodeSupported();
+
# No declaration unless specified
initEnv();
$w->xmlDecl();
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod-coverage.t new/XML-Writer-0.602/t/pod-coverage.t
--- old/XML-Writer-0.601/t/pod-coverage.t 1970-01-01 01:00:00.000000000 +0100
+++ new/XML-Writer-0.602/t/pod-coverage.t 2006-09-23 23:26:58.000000000 +0200
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod::Coverage";
+plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if $@;
+
+plan tests => 1;
+
+pod_coverage_ok('XML::Writer');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod.t new/XML-Writer-0.602/t/pod.t
--- old/XML-Writer-0.601/t/pod.t 1970-01-01 01:00:00.000000000 +0100
+++ new/XML-Writer-0.602/t/pod.t 2006-09-23 23:26:58.000000000 +0200
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+plan tests => 1;
+
+pod_file_ok('Writer.pm');
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org