You are viewing a plain text version of this content. The canonical link for it is here.
Posted to axkit-dev@xml.apache.org by ma...@apache.org on 2003/09/04 21:32:16 UTC

cvs commit: xml-axkit/lib/Apache/AxKit Provider.pm

matts       2003/09/04 12:32:16

  Modified:    lib/Apache/AxKit Provider.pm
  Log:
  Fix A-caret chars everywhere.
  
  Revision  Changes    Path
  1.16      +5 -1      xml-axkit/lib/Apache/AxKit/Provider.pm
  
  Index: Provider.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Provider.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- Provider.pm	28 Jul 2003 22:53:20 -0000	1.15
  +++ Provider.pm	4 Sep 2003 19:32:16 -0000	1.16
  @@ -71,6 +71,7 @@
       my $self = shift;
       require Apache::AxKit::LibXMLSupport;
       
  +    AxKit::Debug(8, "Provider::get_dom");
       my $parser = XML::LibXML->new();
       $parser->expand_entities(1);
       local($XML::LibXML::match_cb, $XML::LibXML::open_cb,
  @@ -80,10 +81,13 @@
       my $xml_doc;
       eval {
           my $fh = $self->get_fh();
  +        AxKit::Debug(8, "Provider::get_dom/parse_fh($fh, ", $self->{apache}->uri(), ")");
           $xml_doc = $parser->parse_fh($fh, $self->{apache}->uri());
       };
       if ($@) {
  +        use bytes;
           my $xmlstring = ${$self->get_strref()};
  +        AxKit::Debug(8, "Provider::get_dom/parse_string($xmlstring, ", $self->{apache}->uri(), ")");
           $xml_doc = $parser->parse_string($xmlstring, $self->{apache}->uri()) || 
               throw Apache::AxKit::Exception::Error(
                   -text => "XML::LibXML->parse_string returned nothing!"