r31100 - in /trunk/libxml-sax-writer-perl: Changes MANIFEST META.yml Makefile.PL Writer.pm debian/changelog inc/ lib/XML/SAX/Writer.pm lib/XML/SAX/Writer/XML.pm t/05basic.t t/20bugs.t
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Wed Feb 25 00:57:38 UTC 2009
Author: antonio-guest
Date: Wed Feb 25 00:57:35 2009
New Revision: 31100
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31100
Log:
last commit for the upgrade
Added:
trunk/libxml-sax-writer-perl/inc/
- copied from r31099, branches/upstream/libxml-sax-writer-perl/current/inc/
trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer.pm
- copied unchanged from r31099, branches/upstream/libxml-sax-writer-perl/current/lib/XML/SAX/Writer.pm
trunk/libxml-sax-writer-perl/t/20bugs.t
- copied unchanged from r31099, branches/upstream/libxml-sax-writer-perl/current/t/20bugs.t
Removed:
trunk/libxml-sax-writer-perl/Writer.pm
Modified:
trunk/libxml-sax-writer-perl/Changes
trunk/libxml-sax-writer-perl/MANIFEST
trunk/libxml-sax-writer-perl/META.yml
trunk/libxml-sax-writer-perl/Makefile.PL
trunk/libxml-sax-writer-perl/debian/changelog
trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer/XML.pm
trunk/libxml-sax-writer-perl/t/05basic.t
Modified: trunk/libxml-sax-writer-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/Changes?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/Changes (original)
+++ trunk/libxml-sax-writer-perl/Changes Wed Feb 25 00:57:35 2009
@@ -1,6 +1,15 @@
Revision history for XML::SAX::Writer
-------------------------------------
+0.52 - 2008-11-19
+ - Fix spelling of QuoteCharacter
+
+
+0.51 - 2008-11-19
+ - Added QuoteCharecter parameter to new() to control quoting of
+ attributes (perigrin)
+ - Added Tests and Docs
+
0.50 - Sep 14, 2006
- fixed redundant skipped entity at start_dtd
(RT.cpan.org #18546)
Modified: trunk/libxml-sax-writer-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/MANIFEST?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/MANIFEST (original)
+++ trunk/libxml-sax-writer-perl/MANIFEST Wed Feb 25 00:57:35 2009
@@ -1,9 +1,18 @@
Changes
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/XML/SAX/Writer.pm
+lib/XML/SAX/Writer/XML.pm
Makefile.PL
-MANIFEST
+MANIFEST This list of files
+META.yml
README
t/05basic.t
t/10consumers.t
-Writer.pm
-lib/XML/SAX/Writer/XML.pm
-META.yml Module meta-data (added by MakeMaker)
+t/20bugs.t
Modified: trunk/libxml-sax-writer-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/META.yml?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/META.yml (original)
+++ trunk/libxml-sax-writer-perl/META.yml Wed Feb 25 00:57:35 2009
@@ -1,15 +1,25 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: XML-SAX-Writer
-version: 0.50
-version_from: Writer.pm
-installdirs: site
+---
+abstract: 'SAX2 Writer'
+author:
+ - 'Robin Berjon, robin at knowscape.com'
+build_requires:
+ Test::More: 0.40
+distribution_type: module
+generated_by: 'Module::Install version 0.77'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: XML-SAX-Writer
+no_index:
+ directory:
+ - inc
+ - t
requires:
- Test::More: 0.40
- Text::Iconv: 1.2
- XML::Filter::BufferText: 1.00
- XML::NamespaceSupport: 1.00
- XML::SAX::Exception: 1.01
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+ Text::Iconv: 1.2
+ XML::Filter::BufferText: 1.00
+ XML::NamespaceSupport: 1.00
+ XML::SAX::Exception: 1.01
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.52
Modified: trunk/libxml-sax-writer-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/Makefile.PL?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/Makefile.PL (original)
+++ trunk/libxml-sax-writer-perl/Makefile.PL Wed Feb 25 00:57:35 2009
@@ -1,15 +1,12 @@
-use ExtUtils::MakeMaker;
+use inc::Module::Install;
-WriteMakefile(
- 'NAME' => 'XML::SAX::Writer',
- 'VERSION_FROM' => 'Writer.pm',
- 'AUTHOR' => 'Robin Berjon',
- 'ABSTRACT' => 'SAX2 XML Writer',
- 'PREREQ_PM' => {
- Text::Iconv => '1.2',
- XML::SAX::Exception => '1.01',
- XML::NamespaceSupport => '1.00',
- Test::More => '0.40',
- XML::Filter::BufferText => '1.00',
- },
-);
+name 'XML-SAX-Writer';
+all_from 'lib/XML/SAX/Writer.pm';
+
+requires 'Text::Iconv' => '1.2';
+requires 'XML::SAX::Exception' => '1.01';
+requires 'XML::NamespaceSupport' => '1.00';
+requires 'XML::Filter::BufferText' => '1.00';
+build_requires 'Test::More' => '0.40';
+
+WriteAll;
Modified: trunk/libxml-sax-writer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/debian/changelog?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/debian/changelog (original)
+++ trunk/libxml-sax-writer-perl/debian/changelog Wed Feb 25 00:57:35 2009
@@ -1,3 +1,9 @@
+libxml-sax-writer-perl (0.52-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Antonio Radici <antonio at dyne.org> Wed, 25 Feb 2009 00:53:37 +0000
+
libxml-sax-writer-perl (0.50-3) UNRELEASED; urgency=low
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
Modified: trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer/XML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer/XML.pm?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer/XML.pm (original)
+++ trunk/libxml-sax-writer-perl/lib/XML/SAX/Writer/XML.pm Wed Feb 25 00:57:35 2009
@@ -100,7 +100,7 @@
# build a string from what we have, and buffer it
my $el = '<' . $data->{Name};
for my $k (keys %attr_hash) {
- $el .= ' ' . $k . '=\'' . $self->escape($attr_hash{$k}) . '\'';
+ $el .= ' ' . $k . qq[=$self->{QuoteCharacter}] . $self->escape($attr_hash{$k}) . qq[$self->{QuoteCharacter}];
}
$self->{BufferElement} = $el;
Modified: trunk/libxml-sax-writer-perl/t/05basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-writer-perl/t/05basic.t?rev=31100&op=diff
==============================================================================
--- trunk/libxml-sax-writer-perl/t/05basic.t (original)
+++ trunk/libxml-sax-writer-perl/t/05basic.t Wed Feb 25 00:57:35 2009
@@ -6,7 +6,7 @@
###
use strict;
-use Test::More tests => 27;
+use Test::More tests => 29;
BEGIN { use_ok('XML::SAX::Writer'); }
# VMS has different names for codepages
@@ -16,12 +16,13 @@
# default options of XML::SAX::Writer
my $w1 = XML::SAX::Writer->new->{Handler};
+
ok( $w1->{EncodeFrom} eq 'utf-8', 'default EncodeFrom');
ok( $w1->{EncodeTo} eq 'utf-8', 'default EncodeTo');
isa_ok( $w1->{Output}, 'IO::Handle', 'default Output');
is_deeply( $w1->{Format}, {}, 'default Format');
is_deeply( $w1->{Escape}, \%XML::SAX::Writer::DEFAULT_ESCAPE, 'default Escape');
-
+is( $w1->{QuoteCharacter}, q['], 'default QuoteCharacter');
# set default options of XML::SAX::Writer
my %fmt2 = ( FooBar => 1 );
@@ -32,13 +33,14 @@
Output => $o2,
Format => \%fmt2,
Escape => {},
+ QuoteCharacter => q["],
})->{Handler};
ok( $w2->{EncodeFrom} eq $isoL1, 'set EncodeFrom');
ok( $w2->{EncodeTo} eq $isoL2, 'set EncodeTo');
ok( "$w2->{Output}" eq "$o2", 'set Output');
is_deeply( $w2->{Format}, \%fmt2, 'set Format');
is_deeply( $w2->{Escape}, {}, 'set Escape');
-
+is( $w2->{QuoteCharacter}, q["], 'set QuoteCharacter');
# options after initialisation
$w1->start_document;
@@ -87,10 +89,10 @@
my $esc1 = '<>&"\'';
my $eq1 = '<>&"'';
my $res1 = $w1->escape($esc1);
-ok($res1 eq $eq1, 'escaping (default)');
+is($res1, $eq1, 'escaping (default)');
# converting
my $conv = XML::SAX::Writer::NullConverter->new;
my $str = 'TEST';
my $res = $conv->convert($str);
-ok($str eq $res, 'noop converter');
+is($str, $res, 'noop converter');
More information about the Pkg-perl-cvs-commits
mailing list