Ignore:
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

Location:
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Encodings/README

    r27768 r27777  
    11This directory contains binary encoding maps for some selected encodings.
    2 If they are placed in a directoy listed in @XML::Parser::Expat::Encoding_Path,
    3 then they are automaticly loaded by the XML::Parser::Expat::load_encoding
     2If they are placed in a directory listed in @XML::Parser::Expat::Encoding_Path,
     3then they are automatically loaded by the XML::Parser::Expat::load_encoding
    44function as needed. Otherwise you may load what you need directly by
    5 explicity calling this function.
     5explicitly calling this function.
    66
    77These 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  
    1111
    1212@ISA = qw(DynaLoader);
    13 $VERSION = "2.34" ;
     13$VERSION = "2.41";
    1414
    1515$have_File_Spec = $INC{'File/Spec.pm'} || do 'File/Spec.pm';
     
    443443 
    444444  if (defined $arg) {
     445    local *@;
    445446    if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handle')) {
    446447      $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;
    451451    }
    452452    else {
     
    456456        $ioref = *{$arg}{IO} if defined *{$arg};
    457457      };
    458       undef $@;
    459458    }
    460459  }
     
    463462    my $delim = $self->{Stream_Delimiter};
    464463    my $prev_rs;
     464    my $ioclass = ref $ioref;
     465    $ioclass = "IO::Handle" if !length $ioclass;
    465466   
    466     $prev_rs = ref($ioref)->input_record_separator("\n$delim\n")
     467    $prev_rs = $ioclass->input_record_separator("\n$delim\n")
    467468      if defined($delim);
    468469   
    469470    $result = ParseStream($parser, $ioref, $delim);
    470471   
    471     ref($ioref)->input_record_separator($prev_rs)
     472    $ioclass->input_record_separator($prev_rs)
    472473      if defined($delim);
    473474  } else {
     
    496497
    497498################################################################
    498 package XML::Parser::ContentModel;
     499package #hide from PAUSE
     500 XML::Parser::ContentModel;
    499501use overload '""' => \&asString, 'eq' => \&thiseq;
    500502
     
    583585
    584586################################################################
    585 package XML::Parser::ExpatNB;
     587package #hide from PAUSE
     588 XML::Parser::ExpatNB;
    586589
    587590use vars qw(@ISA);
     
    649652################################################################
    650653
    651 package XML::Parser::Encinfo;
     654package  #hide from PAUSE
     655 XML::Parser::Encinfo;
    652656
    653657sub DESTROY {
     
    668672 use XML::Parser::Expat;
    669673
    670  $parser = new XML::Parser::Expat;
     674 $parser = XML::Parser::Expat->new;
    671675 $parser->setHandlers('Start' => \&sh,
    672676                      'End'   => \&eh,
    673677                      'Char'  => \&ch);
    674  open(FOO, 'info.xml') or die "Couldn't open";
     678 open(FOO, '<', 'info.xml') or die "Couldn't open";
    675679 $parser->parse(*FOO);
    676680 close(FOO);
     
    12131217table. Earlier encodings of the same name are replaced.
    12141218
    1215 This function is automaticly called by expat when it encounters an encoding
     1219This function is automatically called by expat when it encounters an encoding
    12161220it doesn't know about. Expat shouldn't call this twice for the same
    12171221encoding 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 $
    22
    33package 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 $
    22
    33package 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 $
    22
    33package 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 $
    22
    33package 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 $
    22
    33package XML::Parser::Style::Tree;
Note: See TracChangeset for help on using the changeset viewer.