summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl71
1 files changed, 0 insertions, 71 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl
deleted file mode 100644
index d0c940b1ac5..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/LWPExternEnt.pl
+++ /dev/null
@@ -1,71 +0,0 @@
-# LWPExternEnt.pl
-#
-# Copyright (c) 2000 Clark Cooper
-# All rights reserved.
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-
-package XML::Parser;
-
-use URI;
-use URI::file;
-use LWP;
-
-##
-## Note that this external entity handler reads the entire entity into
-## memory, so it will choke on huge ones. It would be really nice if
-## LWP::UserAgent optionally returned us an IO::Handle.
-##
-
-sub lwp_ext_ent_handler {
- my ($xp, $base, $sys) = @_; # We don't use public id
-
- my $uri;
-
- if (defined $base) {
- # Base may have been set by parsefile, which is agnostic about
- # whether its a file or URI.
- my $base_uri = new URI($base);
- unless (defined $base_uri->scheme) {
- $base_uri = URI->new_abs($base_uri, URI::file->cwd);
- }
-
- $uri = URI->new_abs($sys, $base_uri);
- }
- else {
- $uri = new URI($sys);
- unless (defined $uri->scheme) {
- $uri = URI->new_abs($uri, URI::file->cwd);
- }
- }
-
- my $ua = $xp->{_lwpagent};
- unless (defined $ua) {
- $ua = $xp->{_lwpagent} = new LWP::UserAgent();
- $ua->env_proxy();
- }
-
- my $req = new HTTP::Request('GET', $uri);
-
- my $res = $ua->request($req);
- if ($res->is_error) {
- $xp->{ErrorMessage} .= "\n" . $res->status_line . " $uri";
- return undef;
- }
-
- $xp->{_BaseStack} ||= [];
- push(@{$xp->{_BaseStack}}, $base);
-
- $xp->base($uri);
-
- return $res->content;
-} # End lwp_ext_ent_handler
-
-sub lwp_ext_ent_cleanup {
- my ($xp) = @_;
-
- $xp->base(pop(@{$xp->{_BaseStack}}));
-} # End lwp_ext_ent_cleanup
-
-1;