Changeset 27777 for main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser.pm

Timestamp:

2013-07-08T22:17:10+12:00 (11 years ago)

Author:

davidb

Message:

Bumped up to using version 2.41 of XML::Parser so use of 'tie' no longer causes deprecated message

File:

• main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser.pm (modified) (7 diffs)

main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser.pm

@@ -9 +9 @@
 package XML::Parser;
 
+use strict;
+
+use vars qw($VERSION $LWP_load_failed);
+
 use Carp;
 
 BEGIN {
   require XML::Parser::Expat;
-  $VERSION = '2.34';
+  $VERSION = '2.41';
   die "Parser.pm and Expat.pm versions don't match"
     unless $VERSION eq $XML::Parser::Expat::VERSION;
 }
-
-use strict;
-
-use vars qw($VERSION $LWP_load_failed);
 
 $LWP_load_failed = 0;
@@ -144 +144 @@
   my $final = delete $handlers{Final};
 
-  my $expatnb = new XML::Parser::ExpatNB(@expat_options, @_);
+  my $expatnb = XML::Parser::ExpatNB->new(@expat_options, @_);
   $expatnb->setHandlers(%handlers);
 
@@ -168 +168 @@
   }
   
-  my $expat = new XML::Parser::Expat(@expat_options, @_);
+  my $expat = XML::Parser::Expat->new(@expat_options, @_);
   my %handlers = %{$self->{Handlers}};
   my $init = delete $handlers{Init};
@@ -298 +298 @@
 
   require IO::File;
-  my $fh = new IO::File($path);
+  my $fh = IO::File->new($path);
   unless (defined $fh) {
     $xp->{ErrorMessage}
@@ -337 +337 @@
 
   use XML::Parser;
-  
-  $p1 = new XML::Parser(Style => 'Debug');
+
+  $p1 = XML::Parser->new(Style => 'Debug');
   $p1->parsefile('REC-xml-19980210.xml');
   $p1->parse('<foo id="me">Hello World</foo>');
 
   # Alternative
-  $p2 = new XML::Parser(Handlers => {Start => \&handle_start,
+  $p2 = XML::Parser->new(Handlers => {Start => \&handle_start,
                                      End   => \&handle_end,
                                      Char  => \&handle_char});
@@ -349 +349 @@
 
   # Another alternative
-  $p3 = new XML::Parser(ErrorContext => 2);
+  $p3 = XML::Parser->new(ErrorContext => 2);
 
   $p3->setHandlers(Char    => \&text,
@@ -376 +376 @@
 case they override options given at XML::Parser creation time.
 
-The behavior of the parser is controlled either by C<L</Style>> and/or
-C<L</Handlers>> options, or by L</setHandlers> method. These all provide
+The behavior of the parser is controlled either by C<L</STYLES>> and/or
+C<L</HANDLERS>> options, or by L</setHandlers> method. These all provide
 mechanisms for XML::Parser to set the handlers needed by XML::Parser::Expat.
 If neither C<Style> nor C<Handlers> are specified, then parsing just