Changeset 27777 for main/trunk/release-kits
- Timestamp:
- 2013-07-08T22:17:10+12:00 (11 years ago)
- Location:
- main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser.pm
r27768 r27777 9 9 package XML::Parser; 10 10 11 use strict; 12 13 use vars qw($VERSION $LWP_load_failed); 14 11 15 use Carp; 12 16 13 17 BEGIN { 14 18 require XML::Parser::Expat; 15 $VERSION = '2. 34';19 $VERSION = '2.41'; 16 20 die "Parser.pm and Expat.pm versions don't match" 17 21 unless $VERSION eq $XML::Parser::Expat::VERSION; 18 22 } 19 20 use strict;21 22 use vars qw($VERSION $LWP_load_failed);23 23 24 24 $LWP_load_failed = 0; … … 144 144 my $final = delete $handlers{Final}; 145 145 146 my $expatnb = new XML::Parser::ExpatNB(@expat_options, @_);146 my $expatnb = XML::Parser::ExpatNB->new(@expat_options, @_); 147 147 $expatnb->setHandlers(%handlers); 148 148 … … 168 168 } 169 169 170 my $expat = new XML::Parser::Expat(@expat_options, @_);170 my $expat = XML::Parser::Expat->new(@expat_options, @_); 171 171 my %handlers = %{$self->{Handlers}}; 172 172 my $init = delete $handlers{Init}; … … 298 298 299 299 require IO::File; 300 my $fh = new IO::File($path);300 my $fh = IO::File->new($path); 301 301 unless (defined $fh) { 302 302 $xp->{ErrorMessage} … … 337 337 338 338 use XML::Parser; 339 340 $p1 = new XML::Parser(Style => 'Debug');339 340 $p1 = XML::Parser->new(Style => 'Debug'); 341 341 $p1->parsefile('REC-xml-19980210.xml'); 342 342 $p1->parse('<foo id="me">Hello World</foo>'); 343 343 344 344 # Alternative 345 $p2 = new XML::Parser(Handlers => {Start => \&handle_start,345 $p2 = XML::Parser->new(Handlers => {Start => \&handle_start, 346 346 End => \&handle_end, 347 347 Char => \&handle_char}); … … 349 349 350 350 # Another alternative 351 $p3 = new XML::Parser(ErrorContext => 2);351 $p3 = XML::Parser->new(ErrorContext => 2); 352 352 353 353 $p3->setHandlers(Char => \&text, … … 376 376 case they override options given at XML::Parser creation time. 377 377 378 The behavior of the parser is controlled either by C<L</S tyle>> and/or379 C<L</H andlers>> options, or by L</setHandlers> method. These all provide378 The behavior of the parser is controlled either by C<L</STYLES>> and/or 379 C<L</HANDLERS>> options, or by L</setHandlers> method. These all provide 380 380 mechanisms for XML::Parser to set the handlers needed by XML::Parser::Expat. 381 381 If neither C<Style> nor C<Handlers> are specified, then parsing just -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Encodings/README
r27768 r27777 1 1 This directory contains binary encoding maps for some selected encodings. 2 If they are placed in a directo y listed in @XML::Parser::Expat::Encoding_Path,3 then they are automatic ly loaded by the XML::Parser::Expat::load_encoding2 If they are placed in a directory listed in @XML::Parser::Expat::Encoding_Path, 3 then they are automatically loaded by the XML::Parser::Expat::load_encoding 4 4 function as needed. Otherwise you may load what you need directly by 5 explicit y calling this function.5 explicitly calling this function. 6 6 7 7 These maps were generated by a perl script that comes with the module -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Expat.pm
r27768 r27777 11 11 12 12 @ISA = qw(DynaLoader); 13 $VERSION = "2. 34";13 $VERSION = "2.41"; 14 14 15 15 $have_File_Spec = $INC{'File/Spec.pm'} || do 'File/Spec.pm'; … … 443 443 444 444 if (defined $arg) { 445 local *@; 445 446 if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handle')) { 446 447 $ioref = $arg; 447 } elsif (tied($arg)) { 448 my $class = ref($arg); 449 no strict 'refs'; 450 $ioref = $arg if defined &{"${class}::TIEHANDLE"}; 448 } elsif ($] < 5.008 and defined tied($arg)) { 449 require IO::Handle; 450 $ioref = $arg; 451 451 } 452 452 else { … … 456 456 $ioref = *{$arg}{IO} if defined *{$arg}; 457 457 }; 458 undef $@;459 458 } 460 459 } … … 463 462 my $delim = $self->{Stream_Delimiter}; 464 463 my $prev_rs; 464 my $ioclass = ref $ioref; 465 $ioclass = "IO::Handle" if !length $ioclass; 465 466 466 $prev_rs = ref($ioref)->input_record_separator("\n$delim\n")467 $prev_rs = $ioclass->input_record_separator("\n$delim\n") 467 468 if defined($delim); 468 469 469 470 $result = ParseStream($parser, $ioref, $delim); 470 471 471 ref($ioref)->input_record_separator($prev_rs)472 $ioclass->input_record_separator($prev_rs) 472 473 if defined($delim); 473 474 } else { … … 496 497 497 498 ################################################################ 498 package XML::Parser::ContentModel; 499 package #hide from PAUSE 500 XML::Parser::ContentModel; 499 501 use overload '""' => \&asString, 'eq' => \&thiseq; 500 502 … … 583 585 584 586 ################################################################ 585 package XML::Parser::ExpatNB; 587 package #hide from PAUSE 588 XML::Parser::ExpatNB; 586 589 587 590 use vars qw(@ISA); … … 649 652 ################################################################ 650 653 651 package XML::Parser::Encinfo; 654 package #hide from PAUSE 655 XML::Parser::Encinfo; 652 656 653 657 sub DESTROY { … … 668 672 use XML::Parser::Expat; 669 673 670 $parser = new XML::Parser::Expat;674 $parser = XML::Parser::Expat->new; 671 675 $parser->setHandlers('Start' => \&sh, 672 676 'End' => \&eh, 673 677 'Char' => \&ch); 674 open(FOO, ' info.xml') or die "Couldn't open";678 open(FOO, '<', 'info.xml') or die "Couldn't open"; 675 679 $parser->parse(*FOO); 676 680 close(FOO); … … 1213 1217 table. Earlier encodings of the same name are replaced. 1214 1218 1215 This function is automatic ly called by expat when it encounters an encoding1219 This function is automatically called by expat when it encounters an encoding 1216 1220 it doesn't know about. Expat shouldn't call this twice for the same 1217 1221 encoding name. The only reason users should use this function is to -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Debug.pm
r27768 r27777 1 # $Id: Debug.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Debug.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Debug; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Objects.pm
r27768 r27777 1 # $Id: Objects.pm,v 1.1 2003 /08/18 20:20:51 matt Exp $1 # $Id: Objects.pm,v 1.1 2003-08-18 20:20:51 matt Exp $ 2 2 3 3 package XML::Parser::Style::Objects; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Stream.pm
r27768 r27777 1 # $Id: Stream.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Stream.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Stream; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Subs.pm
r27768 r27777 1 # $Id: Subs.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Subs.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Subs; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Tree.pm
r27768 r27777 1 # $Id: Tree.pm,v 1.2 2003 /07/31 07:54:51 matt Exp $1 # $Id: Tree.pm,v 1.2 2003-07-31 07:54:51 matt Exp $ 2 2 3 3 package XML::Parser::Style::Tree; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/auto/XML/Parser/.packlist
r27768 r27777 11 11 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/big5.enc 12 12 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/euc-kr.enc 13 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/ibm866.enc 13 14 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/iso-8859-2.enc 14 15 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/iso-8859-3.enc … … 18 19 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/iso-8859-8.enc 19 20 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/iso-8859-9.enc 21 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/koi8-r.enc 20 22 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/windows-1250.enc 23 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/windows-1251.enc 21 24 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/windows-1252.enc 25 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/windows-1255.enc 22 26 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/x-euc-jp-jisx0221.enc 23 27 /home/ubuntu/research/code/greenstone3-svn/gs2build/perllib/cpan/perl-5.14/XML/Parser/Encodings/x-euc-jp-unicode.enc -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/perllocal.pod
r27768 r27777 1 =head2 Sun Jul 7 01:24:072013: C<Module> L<XML::Parser|XML::Parser>1 =head2 Mon Jul 8 12:08:20 2013: C<Module> L<XML::Parser|XML::Parser> 2 2 3 3 =over 4 … … 13 13 =item * 14 14 15 C<VERSION: 2. 34>15 C<VERSION: 2.41> 16 16 17 17 =item *
Note:
See TracChangeset
for help on using the changeset viewer.