r56851 - in /branches/upstream/libxml-writer-perl/current: Changes LICENSE META.yml Makefile.PL Writer.pm t/01_main.t

[franck at users.alioth.debian.org]

Author: franck
Date: Sun Apr 25 10:20:41 2010
New Revision: 56851

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56851
Log:
[svn-upgrade] Integrating new upstream version, libxml-writer-perl (0.611)

Modified:
    branches/upstream/libxml-writer-perl/current/Changes
    branches/upstream/libxml-writer-perl/current/LICENSE
    branches/upstream/libxml-writer-perl/current/META.yml
    branches/upstream/libxml-writer-perl/current/Makefile.PL
    branches/upstream/libxml-writer-perl/current/Writer.pm
    branches/upstream/libxml-writer-perl/current/t/01_main.t

Modified: branches/upstream/libxml-writer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Changes?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Changes (original)
+++ branches/upstream/libxml-writer-perl/current/Changes Sun Apr 25 10:20:41 2010
@@ -1,5 +1,8 @@
 Revision history for Perl extension XML::Writer.
 
+0.611 Thu Apr 22 13:09:12 BST 2010    <joe at kafsemo.org>
+        - Adopt rewritten license text to explicitly allow modification.
+           
 0.610 Mon Mar 29 02:29:32 BST 2010    <joe at kafsemo.org>
         - Add a CHECK_PRINT constructor parameter to check the output print
            success (#50465). It will croak when printing to output fails.

Modified: branches/upstream/libxml-writer-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/LICENSE?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/LICENSE (original)
+++ branches/upstream/libxml-writer-perl/current/LICENSE Sun Apr 25 10:20:41 2010
@@ -4,4 +4,5 @@
 Copyright (c) 2003 Ed Avis <ed at membled.com>
 Copyright (c) 2004-2010 Joseph Walton <joe at kafsemo.org>
 
-No warranty.  Commercial and non-commercial use freely permitted.
+Redistribution and use in source and compiled forms, with or without
+modification, are permitted under any circumstances.  No warranty.

Modified: branches/upstream/libxml-writer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/META.yml?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/META.yml (original)
+++ branches/upstream/libxml-writer-perl/current/META.yml Sun Apr 25 10:20:41 2010
@@ -3,7 +3,7 @@
   version: 1.4
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
 name:         XML-Writer
-version:      0.610
+version:      0.611
 abstract:     Easily generate well-formed, namespace-aware XML.
 author:
   - David Megginson <david at megginson.com>

Modified: branches/upstream/libxml-writer-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Makefile.PL?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Makefile.PL (original)
+++ branches/upstream/libxml-writer-perl/current/Makefile.PL Sun Apr 25 10:20:41 2010
@@ -7,7 +7,7 @@
 # the contents of the Makefile that is written.
 WriteMakefile(
     'NAME'    => 'XML::Writer',
-    'VERSION' => '0.610',
+    'VERSION' => '0.611',
 
     # A manually-created META.yml has all the other metadata;
     #  we don't want it overwritten

Modified: branches/upstream/libxml-writer-perl/current/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/Writer.pm?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/Writer.pm (original)
+++ branches/upstream/libxml-writer-perl/current/Writer.pm Sun Apr 25 10:20:41 2010
@@ -3,7 +3,8 @@
 # Copyright (c) 1999 by Megginson Technologies.
 # Copyright (c) 2003 Ed Avis <ed at membled.com>
 # Copyright (c) 2004-2010 Joseph Walton <joe at kafsemo.org>
-# No warranty.  Commercial and non-commercial use freely permitted.
+# Redistribution and use in source and compiled forms, with or without
+# modification, are permitted under any circumstances.  No warranty.
 ########################################################################
 
 package XML::Writer;
@@ -14,7 +15,7 @@
 use vars qw($VERSION);
 use Carp;
 use IO::Handle;
-$VERSION = "0.610";
+$VERSION = "0.611";
 
 
 

Modified: branches/upstream/libxml-writer-perl/current/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-writer-perl/current/t/01_main.t?rev=56851&op=diff
==============================================================================
--- branches/upstream/libxml-writer-perl/current/t/01_main.t (original)
+++ branches/upstream/libxml-writer-perl/current/t/01_main.t Sun Apr 25 10:20:41 2010
@@ -4,7 +4,8 @@
 # Copyright (c) 1999 by Megginson Technologies.
 # Copyright (c) 2003 Ed Avis <ed at membled.com>
 # Copyright (c) 2004-2010 Joseph Walton <joe at kafsemo.org>
-# No warranty.  Commercial and non-commercial use freely permitted.
+# Redistribution and use in source and compiled forms, with or without
+# modification, are permitted under any circumstances.  No warranty.
 ########################################################################
 
 # Before 'make install' is performed this script should be runnable with
@@ -14,7 +15,7 @@
 
 use Errno;
 
-use Test::More(tests => 223);
+use Test::More(tests => 225);
 
 
 # Catch warnings
@@ -1877,6 +1878,19 @@
 	$w->xmlDecl();
 };
 
+# getOutput() with CHECK_PRINT should get the underlying stream, not the wrapper
+TEST: {
+	initEnv(CHECK_PRINT => 1);
+
+	my $out = $w->getOutput();
+
+	$w->setOutput(\*STDERR);
+	is($w->getOutput(), \*STDERR, 'Changing output should be reflected in a subsequent get');
+
+	$w->setOutput($out);
+	is ($w->getOutput(), $out, 'Changing output back should succeed');
+};
+
 # Free test resources
 $outputFile->close() or die "Unable to close temporary file: $!";