r31264 - in /trunk/libxml-sax-perl: ./ SAX/ SAX/PurePerl/ SAX/PurePerl/Reader/ debian/ t/
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Sun Mar 1 01:18:33 UTC 2009
Author: antonio-guest
Date: Sun Mar 1 01:18:30 2009
New Revision: 31264
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31264
Log:
last commit for the upgrade
Modified:
trunk/libxml-sax-perl/Changes
trunk/libxml-sax-perl/SAX.pm
trunk/libxml-sax-perl/SAX/DocumentLocator.pm
trunk/libxml-sax-perl/SAX/Intro.pod
trunk/libxml-sax-perl/SAX/ParserFactory.pm
trunk/libxml-sax-perl/SAX/PurePerl.pm
trunk/libxml-sax-perl/SAX/PurePerl/DTDDecls.pm
trunk/libxml-sax-perl/SAX/PurePerl/DebugHandler.pm
trunk/libxml-sax-perl/SAX/PurePerl/DocType.pm
trunk/libxml-sax-perl/SAX/PurePerl/EncodingDetect.pm
trunk/libxml-sax-perl/SAX/PurePerl/Exception.pm
trunk/libxml-sax-perl/SAX/PurePerl/NoUnicodeExt.pm
trunk/libxml-sax-perl/SAX/PurePerl/Productions.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader/NoUnicodeExt.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader/Stream.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader/String.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader/URI.pm
trunk/libxml-sax-perl/SAX/PurePerl/Reader/UnicodeExt.pm
trunk/libxml-sax-perl/SAX/PurePerl/UnicodeExt.pm
trunk/libxml-sax-perl/SAX/PurePerl/XMLDecl.pm
trunk/libxml-sax-perl/debian/changelog
trunk/libxml-sax-perl/t/42entities.t
Modified: trunk/libxml-sax-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/Changes?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/Changes (original)
+++ trunk/libxml-sax-perl/Changes Sun Mar 1 01:18:30 2009
@@ -1,4 +1,24 @@
Revision history for Perl extension XML::SAX.
+
+0.96 06 Aug 2008 Grant McLean
+ - Fix breakage of Unicode regexes on 5.6 (introduced in 0.95 release)
+
+0.95 05 Aug 2008 Grant McLean
+ - XML::SAX::PurePerl fixes:
+ - RT#37147: Fix handling of numeric character entities in attribute
+ values (report from Jools Smyth)
+ - RT#19442: Fix for numeric character entities spanning end of buffer
+ (report from Eivind Eklund)
+ - RT#29316: Performance fix for parsing from large strings (patch from
+ Gordon Lack)
+ - RT#26588: Fix for UTF8 bytes in first 4096 bytes of document not being
+ decoded to Perl-UTF8-characters (patch from Niko Tyni of the
+ Debian project)
+ - RT#37545: incorrect operator precedence breaks single quotes around
+ DTD entity declarations (report from Kevin Ryde)
+ - RT#28477: Fix test in ParserFactory.pm for parser module loaded (report
+ from Douglas Wilson)
+ - RT#28564: Fix XML::SAX::PurePerl versioning (report from Chapman Flack)
0.16 27 Jun 2007 Grant McLean
- Applied patch for PI handling from RT#19173
Modified: trunk/libxml-sax-perl/SAX.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX.pm (original)
+++ trunk/libxml-sax-perl/SAX.pm Sun Mar 1 01:18:30 2009
@@ -1,19 +1,11 @@
-<<<<<<< .working
-# $Id: SAX.pm,v 1.29 2007/06/27 09:09:12 grant Exp $
-=======
# $Id: SAX.pm,v 1.31 2008-08-05 12:36:24 grant Exp $
->>>>>>> .merge-right.r31256
package XML::SAX;
use strict;
use vars qw($VERSION @ISA @EXPORT_OK);
-<<<<<<< .working
-$VERSION = '0.16';
-=======
$VERSION = '0.96';
->>>>>>> .merge-right.r31256
use Exporter ();
@ISA = ('Exporter');
Modified: trunk/libxml-sax-perl/SAX/DocumentLocator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/DocumentLocator.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/DocumentLocator.pm (original)
+++ trunk/libxml-sax-perl/SAX/DocumentLocator.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: DocumentLocator.pm,v 1.3 2005/10/14 20:31:20 matt Exp $
+# $Id: DocumentLocator.pm,v 1.3 2005-10-14 20:31:20 matt Exp $
package XML::SAX::DocumentLocator;
use strict;
Modified: trunk/libxml-sax-perl/SAX/Intro.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/Intro.pod?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/Intro.pod (original)
+++ trunk/libxml-sax-perl/SAX/Intro.pod Sun Mar 1 01:18:30 2009
@@ -348,7 +348,7 @@
his article on XML.com here <URI>.
To construct SAX pipelines, Barrie Slaymaker, a long time Perl hacker
-who's modules you will probably have heard of or used, wrote a very
+whose modules you will probably have heard of or used, wrote a very
clever module called XML::SAX::Machines. This combines some really
clever SAX filter-type modules, with a construction toolkit for filters
that makes building pipelines easy. But before we see how it makes
@@ -402,6 +402,6 @@
Matt Sergeant, matt at sergeant.org
-$Id: Intro.pod,v 1.3 2002/04/30 07:16:00 matt Exp $
+$Id: Intro.pod,v 1.4 2008-08-04 10:28:01 grant Exp $
=cut
Modified: trunk/libxml-sax-perl/SAX/ParserFactory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/ParserFactory.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/ParserFactory.pm (original)
+++ trunk/libxml-sax-perl/SAX/ParserFactory.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: ParserFactory.pm,v 1.13 2002/11/19 18:25:47 matt Exp $
+# $Id: ParserFactory.pm,v 1.14 2008-08-04 04:51:29 grant Exp $
package XML::SAX::ParserFactory;
@@ -33,11 +33,9 @@
$version = " $1";
}
- {
- no strict 'refs';
- if (!keys %{"${parser_class}::"}) {
- eval "use $parser_class $version;";
- }
+ if (!$parser_class->can('new')) {
+ eval "require $parser_class $version;";
+ die $@ if $@;
}
return $parser_class->new(@parser_params);
Modified: trunk/libxml-sax-perl/SAX/PurePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl.pm Sun Mar 1 01:18:30 2009
@@ -1,13 +1,13 @@
-# $Id: PurePerl.pm,v 1.23 2007/06/27 09:08:00 grant Exp $
+# $Id: PurePerl.pm,v 1.28 2008-08-05 12:36:51 grant Exp $
package XML::SAX::PurePerl;
use strict;
use vars qw/$VERSION/;
-$VERSION = '0.92';
-
-use XML::SAX::PurePerl::Productions qw($Any $CharMinusDash $SingleChar);
+$VERSION = '0.96';
+
+use XML::SAX::PurePerl::Productions qw($NameChar $SingleChar);
use XML::SAX::PurePerl::Reader;
use XML::SAX::PurePerl::EncodingDetect ();
use XML::SAX::Exception;
@@ -374,6 +374,11 @@
return 0 unless $reader->match('&');
my $data = $reader->data;
+
+ # Fetch more data if we have an incomplete numeric reference
+ if ($data =~ /^(#\d*|#x[0-9a-fA-F]*)$/) {
+ $data = $reader->data(length($data) + 6);
+ }
if ($data =~ /^#x([0-9a-fA-F]+);/) {
my $ref = $1;
@@ -580,7 +585,7 @@
}
$value =~ s/[\x09\x0A\x0D]/\x20/g;
- $value =~ s/&(#(x[0-9a-fA-F]+)|([0-9]+)|\w+);/$self->AttReference($1, $reader)/geo;
+ $value =~ s/&(#(x[0-9a-fA-F]+)|#([0-9]+)|\w+);/$self->AttReference($1, $reader)/geo;
return $value;
}
@@ -663,7 +668,7 @@
while(1) {
my $data = $reader->data;
return unless length($data);
- $data =~ /^([^\s>\/&\?;=<\)\(\[\],\%\#\!\*]*)/ or return;
+ $data =~ /^([^\s>\/&\?;=<\)\(\[\],\%\#\!\*\|]*)/ or return;
$name .= $1;
my $len = length($1);
$reader->move_along($len);
Modified: trunk/libxml-sax-perl/SAX/PurePerl/DTDDecls.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/DTDDecls.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/DTDDecls.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/DTDDecls.pm Sun Mar 1 01:18:30 2009
@@ -1,9 +1,9 @@
-# $Id: DTDDecls.pm,v 1.7 2005/10/14 20:31:20 matt Exp $
+# $Id: DTDDecls.pm,v 1.9 2008-08-05 12:37:13 grant Exp $
package XML::SAX::PurePerl;
use strict;
-use XML::SAX::PurePerl::Productions qw($NameChar $SingleChar);
+use XML::SAX::PurePerl::Productions qw($SingleChar);
sub elementdecl {
my ($self, $reader) = @_;
@@ -469,7 +469,7 @@
my $data = $reader->data;
my $quote = '"';
my $re = $quotre;
- if (!$data =~ /^"/) {
+ if ($data !~ /^"/) {
$data =~ /^'/ or $self->parser_error("Not a quote character", $reader);
$quote = "'";
$re = $aposre;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/DebugHandler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/DebugHandler.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/DebugHandler.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/DebugHandler.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: DebugHandler.pm,v 1.3 2001/11/24 17:47:53 matt Exp $
+# $Id: DebugHandler.pm,v 1.3 2001-11-24 17:47:53 matt Exp $
package XML::SAX::PurePerl::DebugHandler;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/DocType.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/DocType.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/DocType.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/DocType.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: DocType.pm,v 1.3 2003/07/30 13:39:22 matt Exp $
+# $Id: DocType.pm,v 1.3 2003-07-30 13:39:22 matt Exp $
package XML::SAX::PurePerl;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/EncodingDetect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/EncodingDetect.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/EncodingDetect.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/EncodingDetect.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: EncodingDetect.pm,v 1.6 2007/02/07 09:33:50 grant Exp $
+# $Id: EncodingDetect.pm,v 1.6 2007-02-07 09:33:50 grant Exp $
package XML::SAX::PurePerl; # NB, not ::EncodingDetect!
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Exception.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Exception.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Exception.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: Exception.pm,v 1.2 2001/11/14 11:07:25 matt Exp $
+# $Id: Exception.pm,v 1.2 2001-11-14 11:07:25 matt Exp $
package XML::SAX::PurePerl::Exception;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/NoUnicodeExt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/NoUnicodeExt.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/NoUnicodeExt.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/NoUnicodeExt.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: NoUnicodeExt.pm,v 1.1 2002/01/30 17:35:21 matt Exp $
+# $Id: NoUnicodeExt.pm,v 1.1 2002-01-30 17:35:21 matt Exp $
package XML::SAX::PurePerl;
use strict;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Productions.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Productions.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Productions.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Productions.pm Sun Mar 1 01:18:30 2009
@@ -1,10 +1,10 @@
-# $Id: Productions.pm,v 1.11 2003/07/30 13:39:22 matt Exp $
+# $Id: Productions.pm,v 1.13 2008-08-05 12:37:13 grant Exp $
package XML::SAX::PurePerl::Productions;
use Exporter;
@ISA = ('Exporter');
- at EXPORT_OK = qw($S $Char $VersionNum $BaseChar $Letter $Ideographic
+ at EXPORT_OK = qw($S $Char $VersionNum $BaseChar $Ideographic
$Extender $Digit $CombiningChar $EncNameStart $EncNameEnd $NameChar $CharMinusDash
$PubidChar $Any $SingleChar);
@@ -36,12 +36,10 @@
$Digit = qr/ [\x30-\x39] /x;
- $Letter = qr/^ $BaseChar $/x;
-
# can't do this one without unicode
# $CombiningChar = qr/^$/msx;
- $NameChar = qr/^ $BaseChar | $Digit | [._:-] | $Extender $/x;
+ $NameChar = qr/^ (?: $BaseChar | $Digit | [._:-] | $Extender )+ $/x;
PERL
die $@ if $@;
}
@@ -138,9 +136,7 @@
[\x{4E00}-\x{9FA5}\x{3007}\x{3021}-\x{3029}]
/x;
- $Letter = qr/^ $BaseChar | $Ideographic $/x;
-
- $NameChar = qr/^ $Letter | $Digit | [._:-] | $CombiningChar | $Extender $/x;
+ $NameChar = qr/^ (?: $BaseChar | $Ideographic | $Digit | [._:-] | $CombiningChar | $Extender )+ $/x;
PERL
die $@ if $@;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader.pm Sun Mar 1 01:18:30 2009
@@ -1,10 +1,9 @@
-# $Id: Reader.pm,v 1.11 2005/10/14 20:31:20 matt Exp $
+# $Id: Reader.pm,v 1.13 2008-08-05 12:37:13 grant Exp $
package XML::SAX::PurePerl::Reader;
use strict;
use XML::SAX::PurePerl::Reader::URI;
-use XML::SAX::PurePerl::Productions qw( $SingleChar $Letter $NameChar );
use Exporter ();
use vars qw(@ISA @EXPORT_OK);
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader/NoUnicodeExt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader/NoUnicodeExt.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader/NoUnicodeExt.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader/NoUnicodeExt.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: NoUnicodeExt.pm,v 1.3 2003/07/30 13:39:23 matt Exp $
+# $Id: NoUnicodeExt.pm,v 1.3 2003-07-30 13:39:23 matt Exp $
package XML::SAX::PurePerl::Reader;
use strict;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader/Stream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader/Stream.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader/Stream.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader/Stream.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: Stream.pm,v 1.7 2005/10/14 20:31:20 matt Exp $
+# $Id: Stream.pm,v 1.7 2005-10-14 20:31:20 matt Exp $
package XML::SAX::PurePerl::Reader::Stream;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader/String.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader/String.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader/String.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader/String.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: String.pm,v 1.5 2003/07/30 13:39:23 matt Exp $
+# $Id: String.pm,v 1.6 2008-08-04 03:35:44 grant Exp $
package XML::SAX::PurePerl::Reader::String;
@@ -15,23 +15,40 @@
@ISA = ('XML::SAX::PurePerl::Reader');
-use constant DISCARDED => 7;
+use constant DISCARDED => 8;
+use constant STRING => 9;
+use constant USED => 10;
+use constant CHUNK_SIZE => 2048;
sub new {
my $class = shift;
my $string = shift;
my @parts;
- @parts[BUFFER, EOF, LINE, COLUMN, DISCARDED] =
- ($string, 0, 1, 0, '');
+ @parts[BUFFER, EOF, LINE, COLUMN, DISCARDED, STRING, USED] =
+ ('', 0, 1, 0, 0, $string, 0);
return bless \@parts, $class;
}
-sub read_more () { }
+sub read_more () {
+ my $self = shift;
+ if ($self->[USED] >= length($self->[STRING])) {
+ $self->[EOF]++;
+ return 0;
+ }
+ my $bytes = CHUNK_SIZE;
+ if ($bytes > (length($self->[STRING]) - $self->[USED])) {
+ $bytes = (length($self->[STRING]) - $self->[USED]);
+ }
+ $self->[BUFFER] .= substr($self->[STRING], $self->[USED], $bytes);
+ $self->[USED] += $bytes;
+ return 1;
+ }
+
sub move_along {
- my $self = shift;
- my $discarded = substr($self->[BUFFER], 0, $_[0], '');
- $self->[DISCARDED] .= $discarded;
+ my($self, $bytes) = @_;
+ my $discarded = substr($self->[BUFFER], 0, $bytes, '');
+ $self->[DISCARDED] += length($discarded);
# Wish I could skip this lot - tells us where we are in the file
my $lines = $discarded =~ tr/\n//;
@@ -55,7 +72,7 @@
sub bytepos {
my $self = shift;
- length($self->[DISCARDED]);
+ $self->[DISCARDED];
}
1;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader/URI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader/URI.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader/URI.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader/URI.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: URI.pm,v 1.1 2001/11/11 18:41:51 matt Exp $
+# $Id: URI.pm,v 1.1 2001-11-11 18:41:51 matt Exp $
package XML::SAX::PurePerl::Reader::URI;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/Reader/UnicodeExt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/Reader/UnicodeExt.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/Reader/UnicodeExt.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/Reader/UnicodeExt.pm Sun Mar 1 01:18:30 2009
@@ -1,9 +1,9 @@
-# $Id: UnicodeExt.pm,v 1.4 2003/07/30 13:39:23 matt Exp $
+# $Id: UnicodeExt.pm,v 1.5 2008-08-04 10:04:54 grant Exp $
package XML::SAX::PurePerl::Reader;
use strict;
-use Encode;
+use Encode ();
sub set_raw_stream {
my ($fh) = @_;
@@ -16,7 +16,7 @@
}
sub switch_encoding_string {
- Encode::from_to($_[0], $_[1], "utf-8");
+ $_[0] = Encode::decode($_[1], $_[0]);
}
1;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/UnicodeExt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/UnicodeExt.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/UnicodeExt.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/UnicodeExt.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: UnicodeExt.pm,v 1.1 2002/01/30 17:35:21 matt Exp $
+# $Id: UnicodeExt.pm,v 1.1 2002-01-30 17:35:21 matt Exp $
package XML::SAX::PurePerl;
use strict;
Modified: trunk/libxml-sax-perl/SAX/PurePerl/XMLDecl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/SAX/PurePerl/XMLDecl.pm?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX/PurePerl/XMLDecl.pm (original)
+++ trunk/libxml-sax-perl/SAX/PurePerl/XMLDecl.pm Sun Mar 1 01:18:30 2009
@@ -1,4 +1,4 @@
-# $Id: XMLDecl.pm,v 1.3 2003/07/30 13:39:22 matt Exp $
+# $Id: XMLDecl.pm,v 1.3 2003-07-30 13:39:22 matt Exp $
package XML::SAX::PurePerl;
Modified: trunk/libxml-sax-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/debian/changelog?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/changelog (original)
+++ trunk/libxml-sax-perl/debian/changelog Sun Mar 1 01:18:30 2009
@@ -1,3 +1,9 @@
+libxml-sax-perl (0.96+dfsg-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Antonio Radici <antonio at dyne.org> Sun, 01 Mar 2009 01:17:39 +0000
+
libxml-sax-perl (0.16+dfsg-4) UNRELEASED; urgency=low
[Franck Joncourt]
Modified: trunk/libxml-sax-perl/t/42entities.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/t/42entities.t?rev=31264&op=diff
==============================================================================
--- trunk/libxml-sax-perl/t/42entities.t (original)
+++ trunk/libxml-sax-perl/t/42entities.t Sun Mar 1 01:18:30 2009
@@ -14,10 +14,10 @@
my $parser = XML::SAX::PurePerl->new(Handler => $handler);
ok($parser);
-$parser->parse_string('<code amp="&" x3E=">" />');
+$parser->parse_string('<code amp="&" x3E=">" num="A" />');
ok(1); # parser didn't die
-my $expected = "amp=& x3E=> ";
+my $expected = "amp=& num=A x3E=> ";
ok($handler->attributes, $expected);
exit;
More information about the Pkg-perl-cvs-commits
mailing list