Permalink
Browse files

version 2.40

  • Loading branch information...
1 parent 9af86f2 commit 2b2b2a9140746a4e4e7660a669f5d0efcfc01610 @chorny committed Sep 21, 2010
Showing with 17 additions and 10 deletions.
  1. +3 −1 Changes
  2. +7 −4 Expat/Expat.pm
  3. +3 −1 MANIFEST
  4. +1 −1 Parser.pm
  5. +1 −1 README
  6. +2 −2 t/encoding.t
View
4 Changes
@@ -1,15 +1,17 @@
Revision history for Perl extension XML::Parser.
+2.40 2010-09-16 (by Alexandr Ciornii)
- Add windows-1251.enc, ibm866.enc, koi8-r.enc (Russian)
- Add windows-1255.enc (Hebrew)
- Update iso-8859-7.enc (RT#40712)
- Use Devel::CheckLib
- Better description of expat packages
+ - Better Perl style in both code and docs
2.36
- Fix for Carp::Heavy bugs
-2.35
+2.35 (mostly by Alexandr Ciornii)
- Works in 5.10 (Andreas J. Koenig)
- Added license in Makefile.PL (Alexandr Ciornii)
- Makefile.PL also searches for expat in C:/lib/Expat-2.0.0 (Alexandr Ciornii)
View
11 Expat/Expat.pm
@@ -10,7 +10,7 @@ use Carp;
require DynaLoader;
@ISA = qw(DynaLoader);
-$VERSION = "2.36" ;
+$VERSION = "2.40";
$have_File_Spec = $INC{'File/Spec.pm'} || do 'File/Spec.pm';
@@ -495,7 +495,8 @@ sub parsefile {
}
################################################################
-package XML::Parser::ContentModel;
+package #hide from PAUSE
+ XML::Parser::ContentModel;
use overload '""' => \&asString, 'eq' => \&thiseq;
sub EMPTY () {1}
@@ -582,7 +583,8 @@ sub thiseq {
}
################################################################
-package XML::Parser::ExpatNB;
+package #hide from PAUSE
+ XML::Parser::ExpatNB;
use vars qw(@ISA);
use Carp;
@@ -648,7 +650,8 @@ sub parse_done {
################################################################
-package XML::Parser::Encinfo;
+package #hide from PAUSE
+ XML::Parser::Encinfo;
sub DESTROY {
my $self = shift;
View
4 MANIFEST
@@ -23,12 +23,15 @@ Parser/Encodings/iso-8859-9.enc ISO-8859-9 binary encoding map
Parser/Encodings/windows-1250.enc cp1250-WinLatin2 binary encoding map
Parser/Encodings/windows-1251.enc cp1251-Russian binary encoding map
Parser/Encodings/windows-1252.enc cp1252-WinLatin1 binary encoding map
+Parser/Encodings/windows-1255.enc hebrew
Parser/Encodings/x-euc-jp-jisx0221.enc X-euc-jp-jisx0221 encoding map
Parser/Encodings/x-euc-jp-unicode.enc X-euc-jp-unicde encoding map
Parser/Encodings/x-sjis-cp932.enc x-sjis-cp932 encoding map
Parser/Encodings/x-sjis-jdk117.enc x-sjis-jdk117 encoding map
Parser/Encodings/x-sjis-jisx0221.enc x-sjis-jisx0221 encoding map
Parser/Encodings/x-sjis-unicode.enc x-sjis-unicode encoding map
+Parser/Encodings/ibm866.enc
+Parser/Encodings/koi8-r.enc
Parser/Style/Debug.pm Debug style parser
Parser/Style/Objects.pm Objects style parser
Parser/Style/Stream.pm Stream style parser
@@ -59,4 +62,3 @@ t/partial.t Test script
t/skip.t Test script
t/stream.t Test script
t/styles.t Test script
-META.yml Module meta-data (added by MakeMaker)
View
2 Parser.pm
@@ -16,7 +16,7 @@ use Carp;
BEGIN {
require XML::Parser::Expat;
- $VERSION = '2.36';
+ $VERSION = '2.40';
die "Parser.pm and Expat.pm versions don't match"
unless $VERSION eq $XML::Parser::Expat::VERSION;
}
View
2 README
@@ -1,4 +1,4 @@
- XML::Parser Version 2.31
+ XML::Parser Version 2.40
Copyright (c) 1998-2000 Larry Wall and Clark Cooper.
All rights reserved.
View
4 t/encoding.t
@@ -31,7 +31,7 @@ sub start {
$lastel = $el;
}
-my $p = new XML::Parser(Handlers => {Start => \&start, Char => \&text});
+my $p = XML::Parser->new(Handlers => {Start => \&start, Char => \&text});
$p->parse($doc);
@@ -91,7 +91,7 @@ sub get_attr {
%attr = @list;
}
-$p = new XML::Parser(Handlers => {Start => \&get_attr});
+$p = XML::Parser->new(Handlers => {Start => \&get_attr});
eval{ $p->parse($docstring) };

0 comments on commit 2b2b2a9

Please sign in to comment.