Update Chromium to beta version 37.0.2062.68

Change-Id: I188e3b5aff1bec75566014291b654eb19f5bc8ca
Reviewed-by: Andras Becsi <andras.becsi@digia.com>

35 files changed, 0 insertions, 5199 deletions

diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/A.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/A.pm
deleted file mode 100644
index 0ff7be36f75..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/A.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-package Net::DNS::RR::A;
-#
-# $Id: A.pm 546 2005-12-16 15:23:03Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-
-
-use vars qw(@ISA $VERSION);
-
-use Socket;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 546 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		$self->{"address"} = inet_ntoa(substr($$data, $offset, 4));
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)\s*$/o)
-	    && ($1 >= 0) && ($1 <= 255)
-	    && ($2 >= 0) && ($2 <= 255)
-	    && ($3 >= 0) && ($3 <= 255)
-	    && ($4 >= 0) && ($4 <= 255) ) {
-
-		$self->{"address"} = "$1.$2.$3.$4";
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"address"} || '';
-}
-
-sub rr_rdata {
-	my $self = shift;
-
-	return exists $self->{"address"}
-			  ? inet_aton($self->{"address"})
-			  : "";
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::A - DNS A resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Address (A) resource records.
-
-=head1 METHODS
-
-=head2 address
-
-    print "address = ", $rr->address, "\n";
-
-Returns the RR's address field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.4.1
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AAAA.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AAAA.pm
deleted file mode 100644
index f8c6a212465..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AAAA.pm
+++ /dev/null
@@ -1,124 +0,0 @@
-package Net::DNS::RR::AAAA;
-#
-# $Id: AAAA.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my @addr = unpack("\@$offset n8", $$data);
-		$self->{"address"} = sprintf("%x:%x:%x:%x:%x:%x:%x:%x", @addr);
-	}
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		my @addr;
-
-		# I think this is correct, per RFC 1884 Sections 2.2 & 2.4.4.
-		if ($string =~ /^(.*):(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
-			my ($front, $a, $b, $c, $d) = ($1, $2, $3, $4, $5);
-			$string = $front . sprintf(":%x:%x",
-						   ($a << 8 | $b),
-						   ($c << 8 | $d));
-		}
-			
-		if ($string =~ /^(.*)::(.*)$/) {
-			my ($front, $back) = ($1, $2);
-			my @front = split(/:/, $front);
-			my @back  = split(/:/, $back);
-			my $fill = 8 - (@front ? $#front + 1 : 0)
-				     - (@back  ? $#back  + 1 : 0);
-			my @middle = (0) x $fill;
-			@addr = (@front, @middle, @back);
-		}
-		else {
-			@addr = split(/:/, $string);
-			if (@addr < 8) {
-				@addr = ((0) x (8 - @addr), @addr);
-			}
-		}
-
-		$self->{"address"} = sprintf("%x:%x:%x:%x:%x:%x:%x:%x",
-					     map { hex $_ } @addr);
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"address"} || '';
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"address"}) {
-		my @addr = split(/:/, $self->{"address"});
-		$rdata .= pack("n8", map { hex $_ } @addr);
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::AAAA - DNS AAAA resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS IPv6 Address (AAAA) resource records.
-
-=head1 METHODS
-
-=head2 address
-
-    print "address = ", $rr->address, "\n";
-
-Returns the RR's address field.
-
-=head1 BUGS
-
-The C<string> method returns only the preferred method of address
-representation ("x:x:x:x:x:x:x:x", as documented in RFC 1884,
-Section 2.2, Para 1).
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1886 Section 2, RFC 1884 Sections 2.2 & 2.4.4
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AFSDB.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AFSDB.pm
deleted file mode 100644
index 8b941adbfff..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/AFSDB.pm
+++ /dev/null
@@ -1,122 +0,0 @@
-package Net::DNS::RR::AFSDB;
-#
-# $Id: AFSDB.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-
-BEGIN { 
-    eval { require bytes; }
-} 
-
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my ($subtype) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		my($hostname) = Net::DNS::Packet::dn_expand($data, $offset);
-		$self->{"subtype"} = $subtype;
-		$self->{"hostname"} = $hostname;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\s+(\S+)$/)) {
-		$self->{"subtype"}  = $1;
-		$self->{"hostname"} = $2;
-		$self->{"hostname"} =~ s/\.+$//;;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return exists $self->{"subtype"}
-	       ? "$self->{subtype} $self->{hostname}."
-	       : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"subtype"}) {
-		$rdata .= pack("n", $self->{"subtype"});
-		$rdata .= $packet->dn_comp($self->{"hostname"},
-					   $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-
-
-sub _canonicalRdata {
-    # rdata contains a compressed domainname... we should not have that.
-	my ($self) = @_;
-	my $rdata;
-	if (exists $self->{"subtype"}) {
-	    $rdata .= pack("n", $self->{"subtype"});
-	    $rdata .=  $self->_name2wire(lc($self->{"hostname"}));
-	}
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::AFSDB - DNS AFSDB resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS AFS Data Base (AFSDB) resource records.
-
-=head1 METHODS
-
-=head2 subtype
-
-    print "subtype = ", $rr->subtype, "\n";
-
-Returns the RR's subtype field.  Use of the subtype field is documented
-in RFC 1183.
-
-=head2 hostname
-
-    print "hostname = ", $rr->hostname, "\n";
-
-Returns the RR's hostname field.  See RFC 1183.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1183 Section 1
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CERT.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CERT.pm
deleted file mode 100644
index 011d7871474..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CERT.pm
+++ /dev/null
@@ -1,178 +0,0 @@
-package Net::DNS::RR::CERT;
-#
-# $Id: CERT.pm 388 2005-06-22 10:06:05Z olaf $
-#
-# Written by Mike Schiraldi <raldi@research.netsol.com> for VeriSign
-
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-use MIME::Base64;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-my %formats = (
-	PKIX => 1,
-	SPKI => 2,
-	PGP  => 3,
-	URI  => 253,
-	OID  => 254,
-);
-
-my %r_formats = reverse %formats;
-
-my %algorithms = (
-	RSAMD5     => 1,
-	DH         => 2,
-	DSA        => 3,
-	ECC        => 4,
-	INDIRECT   => 252,
-	PRIVATEDNS => 253,
-	PRIVATEOID => 254,
-);
-
-my %r_algorithms = reverse %algorithms;
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	
-	if ($self->{"rdlength"} > 0) {
-		my ($format, $tag, $algorithm) = unpack("\@$offset n2C", $$data);
-		
-		$offset        += 2 * Net::DNS::INT16SZ() + 1;
-		
-		my $length      = $self->{"rdlength"} - (2 * Net::DNS::INT16SZ() + 1);
-		my $certificate = substr($$data, $offset, $length);
-		
-		$self->{"format"}      = $format;
-		$self->{"tag"}         = $tag;
-		$self->{"algorithm"}   = $algorithm;
-		$self->{"certificate"} = $certificate;
-	}
-        
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-	
-	$string or return bless $self, $class;
-        
-	my ($format, $tag, $algorithm, @rest) = split " ", $string;        
-	@rest or return bless $self, $class;
-	
-	# look up mnemonics
-	# the "die"s may be rash, but proceeding would be dangerous
-	if ($algorithm =~ /\D/) {
-		$algorithm = $algorithms{$algorithm} || die	"Unknown algorithm mnemonic: '$algorithm'";
-	}
-	
-	if ($format =~ /\D/) {
-		$format = $formats{$format} || die "Unknown format mnemonic: '$format'";
-	}
-	
-	$self->{"format"}      = $format;
-	$self->{"tag"}         = $tag;
-	$self->{"algorithm"}   = $algorithm;
-	$self->{"certificate"} = MIME::Base64::decode(join('', @rest));
-
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-        
-	if (exists $self->{"format"}) {
-		my $cert = MIME::Base64::encode $self->{certificate};
-		$cert =~ s/\n//g;
-		
-		my $format = defined $r_formats{$self->{"format"}} 
-		? $r_formats{$self->{"format"}} : $self->{"format"};
-		
-		my $algorithm = defined $r_algorithms{$self->{algorithm}} 
-		? $r_algorithms{$self->{algorithm}} : $self->{algorithm};
-		
-		$rdatastr = "$format $self->{tag} $algorithm $cert";
-	} else {
-		$rdatastr = '';
-	}
-        
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	
-	my $rdata = "";
-	
-	if (exists $self->{"format"}) {
-		$rdata .= pack("n2", $self->{"format"}, $self->{tag});
-		$rdata .= pack("C",  $self->{algorithm});
-		$rdata .= $self->{certificate};
-	}
-	
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::CERT - DNS CERT resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Certificate (CERT) resource records. (see RFC 2538)
-
-=head1 METHODS
-
-=head2 format
-
-    print "format = ", $rr->format, "\n";
-
-Returns the format code for the certificate (in numeric form)
-
-=head2 tag
-
-    print "tag = ", $rr->tag, "\n";
-
-Returns the key tag for the public key in the certificate
-
-=head2 algorithm
-
-    print "algorithm = ", $rr->algorithm, "\n";
-
-Returns the algorithm used by the certificate (in numeric form)
-
-=head2 certificate
-
-    print "certificate = ", $rr->certificate, "\n";
-
-Returns the data comprising the certificate itself (in raw binary form)
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2782
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CNAME.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CNAME.pm
deleted file mode 100644
index d74a816beb1..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/CNAME.pm
+++ /dev/null
@@ -1,97 +0,0 @@
-package Net::DNS::RR::CNAME;
-#
-# $Id: CNAME.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"cname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"cname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"cname"} ? "$self->{cname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"cname"}) {
-		$rdata = $packet->dn_comp($self->{"cname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-# rdata contains a compressed domainname... we should not have that.
-sub _canonicalRdata {	
-	my ($self) = @_;
-	return $self->_name2wire(lc($self->{"cname"}));
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::CNAME - DNS CNAME resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Canonical Name (CNAME) resource records.
-
-=head1 METHODS
-
-=head2 cname
-
-    print "cname = ", $rr->cname, "\n";
-
-Returns the RR's canonical name.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.1
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/DNAME.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/DNAME.pm
deleted file mode 100644
index c64eea25d14..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/DNAME.pm
+++ /dev/null
@@ -1,90 +0,0 @@
-package Net::DNS::RR::DNAME;
-#
-# $Id: DNAME.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"dname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"dname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"dname"} ? "$self->{dname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"dname"}) {
-		$rdata = $packet->dn_comp($self->{"dname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::DNAME - DNS DNAME resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Non-Terminal Name Redirection (DNAME) resource records.
-
-=head1 METHODS
-
-=head2 dname
-
-    print "dname = ", $rr->dname, "\n";
-
-Returns the DNAME target.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2672
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/EID.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/EID.pm
deleted file mode 100644
index f46f584ecb5..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/EID.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package Net::DNS::RR::EID;
-#
-# $Id: EID.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	return bless $self, $class;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::EID - DNS EID resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Endpoint Identifier (EID) resource records.
-
-=head1 METHODS
-
-=head2 rdlength
-
-    print "rdlength = ", $rr->rdlength, "\n";
-
-Returns the length of the record's data section.
-
-=head2 rdata
-
-    $rdata = $rr->rdata;
-
-Returns the record's data section as binary data.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-draft-ietf-nimrod-dns-I<xx>.txt
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/HINFO.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/HINFO.pm
deleted file mode 100644
index b062a4371be..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/HINFO.pm
+++ /dev/null
@@ -1,125 +0,0 @@
-package Net::DNS::RR::HINFO;
-#
-# $Id: HINFO.pm 639 2007-05-25 12:00:15Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-use Net::DNS::RR::TXT;
-
-@ISA     = qw(Net::DNS::RR Net::DNS::RR::TXT);
-$VERSION = (qw$LastChangedRevision: 639 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my ($cpu, $os, $len);
-
-		($len) = unpack("\@$offset C", $$data);
-		++$offset;
-		$cpu = substr($$data, $offset, $len);
-		$offset += $len;
-
-		($len) = unpack("\@$offset C", $$data);
-		++$offset;
-		$os = substr($$data, $offset, $len);
-		$offset += $len;
-
-		$self->{"cpu"} = $cpu;
-		$self->{"os"}  = $os;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ( $class, $self, $rdata_string ) = @_ ;
-	
-	bless $self, $class;
-        
-	$self->_build_char_str_list($rdata_string);
-	my @elements= $self->char_str_list();
-	if (@elements==2){
-		
-		
-		$self->{"cpu"} = $elements[0];
-		$self->{"os"}  = $elements[1];
-	}else{
-		return;
-	}
-	
-	
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	
-	return $self->{"cpu"}
-	  ? qq("$self->{cpu}" "$self->{os}")
-	    : '';
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"cpu"}) {
-		$rdata .= pack("C", length $self->{"cpu"});
-		$rdata .= $self->{"cpu"};
-
-		$rdata .= pack("C", length $self->{"os"});
-		$rdata .= $self->{"os"};
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::HINFO - DNS HINFO resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Host Information (HINFO) resource records.
-
-=head1 METHODS
-
-=head2 cpu
-
-    print "cpu = ", $rr->cpu, "\n";
-
-Returns the CPU type for this RR.
-
-=head2 os
-
-    print "os = ", $rr->os, "\n";
-
-Returns the operating system type for this RR.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-Portions Copyright (c) 2002-2004 Chris Reinhardt
-Portions Copyright (c) 2007 NLnet Labs
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.2
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/IPSECKEY.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/IPSECKEY.pm
deleted file mode 100644
index dff03952617..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/IPSECKEY.pm
+++ /dev/null
@@ -1,237 +0,0 @@
-package Net::DNS::RR::IPSECKEY;
-
-
-#
-# $Id: IPSECKEY.pm 654 2007-06-20 15:02:50Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION );
-use Socket;
-
-use MIME::Base64;
-
-$VERSION = (qw$LastChangedRevision: 654 $)[1];
-
-@ISA = qw(Net::DNS::RR);
-
-    
-#my %gatetype = (
-#    0 => "No gateway is present.",
-#    1 => "A 4-byte IPv4 address is present.",
-#    2 => "A 16-byte IPv6 address is present.",
-#    3 => "A wire-encoded domain name is present.",
-#    );
-
-#my %algtype = (
-#	RSA => 1,
-#	DSA => 2,
-#);
-
-#my %fingerprinttype = (
-#	'SHA-1' => 1,
-#);
-
-#my %fingerprinttypebyval = reverse %fingerprinttype;
-#my %gatetypebyval= reverse %gatetype;
-#my %algtypebyval	     = reverse %algtype;
-
-
-sub new {
-    my ($class, $self, $data, $offset) = @_;
-    
-    my $offsettoprec    = $offset;
-    my $offsettogatetype = $offset+1;
-    my $offsettoalgor    = $offset+2;
-    my $offsettogateway  = $offset+3;
-    my $offsettopubkey;
-		
-    $self->{'precedence'} = unpack('C', substr($$data, $offsettoprec, 1));
-    $self->{'gatetype'}    = unpack('C', substr($$data, $offsettogatetype, 1));
-    $self->{'algorithm'}    = unpack('C', substr($$data, $offsettoalgor, 1));
-
-    if ($self->{'gatetype'}==0){
-	$self->{'gateway'}='.';
-	$offsettopubkey= $offsettogateway;
-    }elsif($self->{'gatetype'}==1){
-	$self->{'gateway'} = inet_ntoa(substr($$data, $offsettogateway, 4));
-	$offsettopubkey= $offsettogateway+4;
-    }elsif($self->{'gatetype'}==2){
-	$offsettopubkey= $offsettogateway+16;
-	my @addr = unpack("\@$offsettogateway n8", $$data);
-	$self->{'gateway'} = sprintf("%x:%x:%x:%x:%x:%x:%x:%x", @addr);
-    }elsif($self->{'gatetype'}==3){
-	($self->{'gateway'}, $offsettopubkey) = Net::DNS::Packet::dn_expand($data, $offsettogateway);
-
-    }else{
-	die "Could not parse packet, no known gateway type (".$self->{'gatetype'}.")";
-    }	
-    my($pubmaterial)=substr($$data, $offsettopubkey,
-			    ($self->{"rdlength"}-$offsettopubkey+$offset));
-
-    $self->{"pubbin"}=$pubmaterial;
-
-    return bless $self, $class;
-}
-
-
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-	if ($string && ($string =~ /^(\d+)\s+(\d)\s+(\d)\s+(\S+)\s+(\S+)$/)) {
-		$self->{"precedence"} = $1;
-		$self->{"gatetype"} = $2;
-		$self->{"algorithm"} = $3;
-		if ($self->{"gatetype"}==2){
-			# Using the AAAA.pm parsing functionality.
-			my $AAAA=Net::DNS::RR->new("FOO AAAA ".$4);
-			$self->{"gateway"}=$AAAA->rdatastr;
-		}else	
-		{
-			$self->{"gateway"}= $4;
-		}
-		$self->{"pubkey"}= $5;
-	}
-
-
-	return bless $self, $class;
-}
-
-
-sub pubkey {
-  my $self=shift;
-
-  $self->{"pubkey"}= encode_base64($self->{"pubbin"},"") unless defined $self->{"pubkey"};
- 
-  return $self->{"pubkey"};
-}
-
-
-sub pubbin {
-  my $self=shift;
-  $self->{"pubbin"}= decode_base64($self->{"pubkey"}) unless defined $self->{"pubbin"};
-
-  return $self->{"pubbin"};
-}
-
-
-sub rdatastr {
-	my $self     = shift;
-	my $rdatastr = '';
-	return "" unless defined $self->{precedence};
-	$rdatastr .= $self->{"precedence"} . " ". $self->{"gatetype"} . " " .
-	  $self->{"algorithm"}. " ";
-	if ($self->{"gatetype"}==0){
-	  $rdatastr .= ". ";
-	}else{
-	  $rdatastr .= $self->{"gateway"}. " ";
-	}
-	$rdatastr .= $self->pubkey();
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-	if (exists $self->{"precedence"}) {
-		$rdata .= pack("C", $self->{"precedence"});
-		$rdata .= pack("C", $self->{"gatetype"});
-		$rdata .= pack("C", $self->{"algorithm"});
-		if ($self->{"gatetype"}==1 ){
-			$rdata .= inet_aton($self->{"gateway"});
-		}elsif($self->{"gatetype"}==2){	
-			my @addr = split(/:/, $self->{"gateway"});
-			$rdata .= pack("n8", map { hex $_ } @addr);
-		}elsif($self->{"gatetype"}==3){	
-			# No Compression _name2wire will do.
-			$rdata .= $self->_name2wire($self->{"gateway"});
-		}
-		$rdata .= $self->pubbin();
-	}
-
-	return $rdata;
-
-}
-
-
-
-	
-
-1;
-
-
-=head1 NAME
-
-Net::DNS::RR::IPSECKEY - DNS IPSECKEY resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-CLASS for the IPSECKEY RR.
-
-=head1 METHODS
-
-In addition to the regular methods 
-
-
-=head2 algorithm
-
-Returns the RR's algorithm field in decimal representation
-
-    1 = RSA
-    2 = DSA
-
-=head2 precedence  
-
-Returns the presedence
-
-=head2 	gatetype  
-
-Returns the gatetype.
-
-   0  "No gateway is present.",
-   1  "A 4-byte IPv4 address is present.",
-   2  "A 16-byte IPv6 address is present.",
-   3  "A wire-encoded domain name is present.",
-
-=head2 gateway
-
-Returns the gateway in the relevant string notation.
-
-=head2 pubkey
-
-Returns the public key in base64 notation
-
-=head2 pubbin 
-
-Returns the binary public key material in a string.
-
-=head1 TODO
-
-Check on validity of algorithm and gatetype.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2007 NLnet LAbs, Olaf Kolkman.
-
-"All rights reserved, This program is free software; you may redistribute it
-and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-draft-ietf-dnssext-delegation-signer
-
-=cut
-
-
-
-
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/ISDN.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/ISDN.pm
deleted file mode 100644
index 117e178b43b..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/ISDN.pm
+++ /dev/null
@@ -1,129 +0,0 @@
-package Net::DNS::RR::ISDN;
-#
-# $Id: ISDN.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my ($address, $sa, $len);
-
-		($len) = unpack("\@$offset C", $$data);
-		++$offset;
-		$address = substr($$data, $offset, $len);
-		$offset += $len;
-
-		if ($len + 1 < $self->{"rdlength"}) {
-			($len) = unpack("\@$offset C", $$data);
-			++$offset;
-			$sa = substr($$data, $offset, $len);
-			$offset += $len;
-		}
-		else {
-			$sa = "";
-		}
-
-		$self->{"address"} = $address;
-		$self->{"sa"}  = $sa;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && $string =~ /^['"](.*?)['"](.*)/s) {
-		$self->{"address"} = $1;
-		my $rest = $2;
-
-		if ($rest =~ /^\s+['"](.*?)['"]$/) {
-			$self->{"sa"} = $1;
-		}
-		else {
-			$self->{"sa"} = "";
-		}
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"address"}
-	       ? qq("$self->{address}" "$self->{sa}")
-	       : '';
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"address"}) {
-		$rdata .= pack("C", length $self->{"address"});
-		$rdata .= $self->{"address"};
-
-		if ($self->{"sa"}) {
-			$rdata .= pack("C", length $self->{"sa"});
-			$rdata .= $self->{"sa"};
-		}
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::ISDN - DNS ISDN resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS ISDN resource records.
-
-=head1 METHODS
-
-=head2 address
-
-    print "address = ", $rr->address, "\n";
-
-Returns the RR's address field.
-
-=head2 sa
-
-    print "subaddress = ", $rr->sa, "\n";
-
-Returns the RR's subaddress field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1183 Section 3.2
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/LOC.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/LOC.pm
deleted file mode 100644
index 61b84f5f1f5..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/LOC.pm
+++ /dev/null
@@ -1,363 +0,0 @@
-package Net::DNS::RR::LOC;
-#
-# $Id: LOC.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(
-        @ISA $VERSION @poweroften $reference_alt
-        $reference_latlon $conv_sec $conv_min $conv_deg
-        $default_min $default_sec $default_size
-        $default_horiz_pre $default_vert_pre
-);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-# Powers of 10 from 0 to 9 (used to speed up calculations).
-@poweroften = (1, 10, 100, 1_000, 10_000, 100_000, 1_000_000,
-               10_000_000, 100_000_000, 1_000_000_000);
-
-# Reference altitude in centimeters (see RFC 1876).
-$reference_alt = 100_000 * 100;
-
-# Reference lat/lon (see RFC 1876).
-$reference_latlon = 2**31;
-
-# Conversions to/from thousandths of a degree.
-$conv_sec = 1000;
-$conv_min = 60 * $conv_sec;
-$conv_deg = 60 * $conv_min;
-
-# Defaults (from RFC 1876, Section 3).
-$default_min       = 0;
-$default_sec       = 0;
-$default_size      = 1;
-$default_horiz_pre = 10_000;
-$default_vert_pre  = 10;
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my ($version) = unpack("\@$offset C", $$data);
-		++$offset;
-	
-		$self->{"version"} = $version;
-	
-		if ($version == 0) {
-			my ($size) = unpack("\@$offset C", $$data);
-			$size = precsize_ntoval($size);
-			++$offset;
-	
-			my ($horiz_pre) = unpack("\@$offset C", $$data);
-			$horiz_pre = precsize_ntoval($horiz_pre);
-			++$offset;
-	
-			my ($vert_pre) = unpack("\@$offset C", $$data);
-			$vert_pre = precsize_ntoval($vert_pre);
-			++$offset;
-	
-			my ($latitude) = unpack("\@$offset N", $$data);
-			$offset += Net::DNS::INT32SZ();
-	
-			my ($longitude) = unpack("\@$offset N", $$data);
-			$offset += Net::DNS::INT32SZ();
-	
-			my ($altitude) = unpack("\@$offset N", $$data);
-			$offset += Net::DNS::INT32SZ();
-	
-			$self->{"size"}      = $size;
-			$self->{"horiz_pre"} = $horiz_pre;
-			$self->{"vert_pre"}  = $vert_pre;
-			$self->{"latitude"}  = $latitude;
-			$self->{"longitude"} = $longitude;
-			$self->{"altitude"}  = $altitude;
-		}
-		else {
-			# What to do for unsupported versions?
-		}
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && 
-	    $string =~ /^ (\d+) \s+		# deg lat
-			  ((\d+) \s+)?		# min lat
-			  (([\d.]+) \s+)?	# sec lat
-			  (N|S) \s+		# hem lat
-			  (\d+) \s+		# deg lon
-			  ((\d+) \s+)?		# min lon
-			  (([\d.]+) \s+)?	# sec lon
-			  (E|W) \s+		# hem lon
-			  (-?[\d.]+) m? 	# altitude
-			  (\s+ ([\d.]+) m?)?	# size
-			  (\s+ ([\d.]+) m?)?	# horiz precision
-			  (\s+ ([\d.]+) m?)? 	# vert precision
-		       /ix) {
-
-		# What to do for other versions?
-		my $version = 0;
-
-		my ($latdeg, $latmin, $latsec, $lathem) = ($1, $3, $5, $6);
-		my ($londeg, $lonmin, $lonsec, $lonhem) = ($7, $9, $11, $12);
-		my ($alt, $size, $horiz_pre, $vert_pre) = ($13, $15, $17, $19);
-
-		$latmin    = $default_min       unless $latmin;
-		$latsec    = $default_sec       unless $latsec;
-		$lathem    = uc($lathem);
-
-		$lonmin    = $default_min       unless $lonmin;
-		$lonsec    = $default_sec       unless $lonsec;
-		$lonhem    = uc($lonhem);
-
-		$size      = $default_size      unless $size;
-		$horiz_pre = $default_horiz_pre unless $horiz_pre;
-		$vert_pre  = $default_vert_pre  unless $vert_pre;
-
-		$self->{"version"}   = $version;
-		$self->{"size"}      = $size * 100;
-		$self->{"horiz_pre"} = $horiz_pre * 100;
-		$self->{"vert_pre"}  = $vert_pre * 100;
-		$self->{"latitude"}  = dms2latlon($latdeg, $latmin, $latsec,
-						  $lathem);
-		$self->{"longitude"} = dms2latlon($londeg, $lonmin, $lonsec,
-						  $lonhem);
-		$self->{"altitude"}  = $alt * 100 + $reference_alt;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-
-	if (exists $self->{"version"}) {
-		if ($self->{"version"} == 0) {
-			my $lat       = $self->{"latitude"};
-			my $lon       = $self->{"longitude"};
-			my $altitude  = $self->{"altitude"};
-			my $size      = $self->{"size"};
-			my $horiz_pre = $self->{"horiz_pre"};
-			my $vert_pre  = $self->{"vert_pre"};
-	
-			$altitude   = ($altitude - $reference_alt) / 100;
-			$size      /= 100;
-			$horiz_pre /= 100;
-			$vert_pre  /= 100;
-	
-			$rdatastr = latlon2dms($lat, "NS")       . " " .
-			            latlon2dms($lon, "EW")       . " " .
-			            sprintf("%.2fm", $altitude)  . " " .
-			            sprintf("%.2fm", $size)      . " " .
-			            sprintf("%.2fm", $horiz_pre) . " " .
-			            sprintf("%.2fm", $vert_pre);
-		} else {
-			$rdatastr = "; version " . $self->{"version"} . " not supported";
-		}
-	} else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"version"}) {
-		$rdata .= pack("C", $self->{"version"});
-		if ($self->{"version"} == 0) {
-			$rdata .= pack("C3", precsize_valton($self->{"size"}),
-					     precsize_valton($self->{"horiz_pre"}),
-					     precsize_valton($self->{"vert_pre"}));
-			$rdata .= pack("N3", $self->{"latitude"},
-					     $self->{"longitude"},
-					     $self->{"altitude"});
-		}
-		else {
-			# What to do for other versions?
-		}
-	}
-
-	return $rdata;
-}
-
-sub precsize_ntoval {
-	my $prec = shift;
-
-	my $mantissa = (($prec >> 4) & 0x0f) % 10;
-	my $exponent = ($prec & 0x0f) % 10;
-	return $mantissa * $poweroften[$exponent];
-}
-
-sub precsize_valton {
-	my $val = shift;
-
-	my $exponent = 0;
-	while ($val >= 10) {
-		$val /= 10;
-		++$exponent;
-	}
-	return (int($val) << 4) | ($exponent & 0x0f);
-}
-
-sub latlon2dms {
-	my ($rawmsec, $hems) = @_;
-
-	# Tried to use modulus here, but Perl dumped core if
-	# the value was >= 2**31.
-
-	my ($abs, $deg, $min, $sec, $msec, $hem);
-
-	$abs  = abs($rawmsec - $reference_latlon);
-	$deg  = int($abs / $conv_deg);
-	$abs  -= $deg * $conv_deg;
-	$min  = int($abs / $conv_min); 
-	$abs -= $min * $conv_min;
-	$sec  = int($abs / $conv_sec);
-	$abs -= $sec * $conv_sec;
-	$msec = $abs;
-
-	$hem = substr($hems, ($rawmsec >= $reference_latlon ? 0 : 1), 1);
-
-	return sprintf("%d %02d %02d.%03d %s", $deg, $min, $sec, $msec, $hem);
-}
-
-sub dms2latlon {
-	my ($deg, $min, $sec, $hem) = @_;
-	my ($retval);
-
-	$retval = ($deg * $conv_deg) + ($min * $conv_min) + ($sec * $conv_sec);
-	$retval = -$retval if ($hem eq "S") || ($hem eq "W");
-	$retval += $reference_latlon;
-	return $retval;
-}
-
-sub latlon {
-	my $self = shift;
-	my ($retlat, $retlon);
-
-	if ($self->{"version"} == 0) {
-		$retlat = latlon2deg($self->{"latitude"});
-		$retlon = latlon2deg($self->{"longitude"});
-	}
-	else {
-		$retlat = $retlon = undef;
-	}
-
-	return ($retlat, $retlon);
-}
-
-sub latlon2deg {
-	my $rawmsec = shift;
-	my $deg;
-
-	$deg = ($rawmsec - $reference_latlon) / $conv_deg;
-	return $deg;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::LOC - DNS LOC resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Location (LOC) resource records.  See RFC 1876 for
-details.
-
-=head1 METHODS
-
-=head2 version
-
-    print "version = ", $rr->version, "\n";
-
-Returns the version number of the representation; programs should
-always check this.  C<Net::DNS> currently supports only version 0.
-
-=head2 size 
-
-    print "size = ", $rr->size, "\n";
-
-Returns the diameter of a sphere enclosing the described entity,
-in centimeters.
-
-=head2 horiz_pre
-
-    print "horiz_pre = ", $rr->horiz_pre, "\n";
-
-Returns the horizontal precision of the data, in centimeters.
-
-=head2 vert_pre
-
-    print "vert_pre = ", $rr->vert_pre, "\n";
-
-Returns the vertical precision of the data, in centimeters.
-
-=head2 latitude
-
-    print "latitude = ", $rr->latitude, "\n";
-
-Returns the latitude of the center of the sphere described by
-the C<size> method, in thousandths of a second of arc.  2**31
-represents the equator; numbers above that are north latitude.
-
-=head2 longitude
-
-    print "longitude = ", $rr->longitude, "\n";
-
-Returns the longitude of the center of the sphere described by
-the C<size> method, in thousandths of a second of arc.  2**31
-represents the prime meridian; numbers above that are east
-longitude.
-
-=head2 latlon
-
-    ($lat, $lon) = $rr->latlon;
-    system("xearth", "-pos", "fixed $lat $lon");
-
-Returns the latitude and longitude as floating-point degrees.
-Positive numbers represent north latitude or east longitude;
-negative numbers represent south latitude or west longitude.
-
-=head2 altitude
-
-    print "altitude = ", $rr->altitude, "\n";
-
-Returns the altitude of the center of the sphere described by
-the C<size> method, in centimeters, from a base of 100,000m
-below the WGS 84 reference spheroid used by GPS.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-Some of the code and documentation is based on RFC 1876 and on code
-contributed by Christopher Davis.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1876
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MB.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MB.pm
deleted file mode 100644
index e6b33eed0ae..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MB.pm
+++ /dev/null
@@ -1,99 +0,0 @@
-package Net::DNS::RR::MB;
-#
-# $Id: MB.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"madname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"madname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"madname"} ? "$self->{madname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"madname"}) {
-		$rdata .= $packet->dn_comp($self->{"madname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-sub _canonicalRdata {
-    my $self=shift;
-    my $rdata = "";
-    if (exists $self->{"madname"}) {
-		$rdata .= $self->_name2wire(lc($self->{"madname"}));
-	}
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MB - DNS MB resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mailbox (MB) resource records.
-
-=head1 METHODS
-
-=head2 madname
-
-    print "madname = ", $rr->madname, "\n";
-
-Returns the domain name of the host which has the specified mailbox.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.3
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm
deleted file mode 100644
index c4950e20048..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm
+++ /dev/null
@@ -1,100 +0,0 @@
-package Net::DNS::RR::MG;
-#
-# $Id: MG.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"mgmname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-	
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"mgmname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return exists $self->{"mgmname"} ? "$self->{mgmname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"mgmname"}) {
-		$rdata .= $packet->dn_comp($self->{"mgmname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-
-sub _canonicalRdata {
-    my $self=shift;
-    my $rdata = "";
-    if (exists $self->{"mgmname"}) {
-		$rdata .= $self->_name2wire(lc($self->{"mgmname"}));
-	}
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MG - DNS MG resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mail Group (MG) resource records.
-
-=head1 METHODS
-
-=head2 mgmname
-
-    print "mgmname = ", $rr->mgmname, "\n";
-
-Returns the RR's mailbox field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.6
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MINFO.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MINFO.pm
deleted file mode 100644
index 3a3885b44fb..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MINFO.pm
+++ /dev/null
@@ -1,118 +0,0 @@
-package Net::DNS::RR::MINFO;
-#
-# $Id: MINFO.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"rmailbx"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-		($self->{"emailbx"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\S+)\s+(\S+)$/)) {
-		$self->{"rmailbx"} = $1;
-		$self->{"emailbx"} = $2;
-		$self->{"rmailbx"} =~ s/\.+$//;
-		$self->{"emailbx"} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"rmailbx"}
-	       ? "$self->{rmailbx}. $self->{emailbx}."
-	       : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"rmailbx"}) {
-		$rdata .= $packet->dn_comp($self->{"rmailbx"}, $offset);
-
-		$rdata .= $packet->dn_comp($self->{"emailbx"},
-					   $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-
-sub _canonicalRdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"rmailbx"}) {
-		$rdata .= $self->_name2wire(lc($self->{"rmailbx"}));
-		$rdata .=  $self->_name2wire(lc($self->{"emailbx"}));
-	}
-
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MINFO - DNS MINFO resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mailbox Information (MINFO) resource records.
-
-=head1 METHODS
-
-=head2 rmailbx
-
-    print "rmailbx = ", $rr->rmailbx, "\n";
-
-Returns the RR's responsible mailbox field.  See RFC 1035.
-
-=head2 emailbx
-
-    print "emailbx = ", $rr->emailbx, "\n";
-
-Returns the RR's error mailbox field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.7
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MR.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MR.pm
deleted file mode 100644
index 7f7b60d3d16..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MR.pm
+++ /dev/null
@@ -1,101 +0,0 @@
-package Net::DNS::RR::MR;
-#
-# $Id: MR.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"newname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"newname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"newname"} ? "$self->{newname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"newname"}) {
-		$rdata .= $packet->dn_comp($self->{"newname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-sub _canonicalRdata {
-    my $self=shift;
-    my $rdata = "";
-    if (exists $self->{"newname"}) {
-		$rdata .= $self->_name2wire(lc($self->{"newname"}));
-	}
-	return $rdata;
-}
-
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MR - DNS MR resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mail Rename (MR) resource records.
-
-=head1 METHODS
-
-=head2 newname
-
-    print "newname = ", $rr->newname, "\n";
-
-Returns the RR's new name field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.8
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MX.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MX.pm
deleted file mode 100644
index 31fe499f2c7..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MX.pm
+++ /dev/null
@@ -1,135 +0,0 @@
-package Net::DNS::RR::MX;
-#
-# $Id: MX.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-
-# Highest preference sorted first.
-__PACKAGE__->set_rrsort_func("preference",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{'preference'} <=> $b->{'preference'}
-}
-);
-
-
-__PACKAGE__->set_rrsort_func("default_sort",
-			       __PACKAGE__->get_rrsort_func("preference")
-
-    );
-
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"preference"}) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		
-		($self->{"exchange"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\s+(\S+)$/)) {
-		$self->{"preference"} = $1;
-		$self->{"exchange"}   = $2;
-		$self->{"exchange"}   =~ s/\.+$//;;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return defined $self->{"preference"}
-	       ? "$self->{preference} $self->{exchange}."
-	       : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"preference"}) {
-		$rdata .= pack("n", $self->{"preference"});
-		$rdata .= $packet->dn_comp($self->{"exchange"},
-					   $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-sub _canonicalRdata {
-    my ($self) = @_;
-    my $rdata = "";
-    
-    if (exists $self->{"preference"}) {
-	$rdata .= pack("n", $self->{"preference"});
-	$rdata .= $self->_name2wire(lc($self->{"exchange"}))
-	}
-    
-    return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MX - DNS MX resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mail Exchanger (MX) resource records.
-
-=head1 METHODS
-
-=head2 preference
-
-    print "preference = ", $rr->preference, "\n";
-
-Returns the preference for this mail exchange.
-
-=head2 exchange
-
-    print "exchange = ", $rr->exchange, "\n";
-
-Returns name of this mail exchange.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.9
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NAPTR.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NAPTR.pm
deleted file mode 100644
index 1148ec99463..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NAPTR.pm
+++ /dev/null
@@ -1,210 +0,0 @@
-package Net::DNS::RR::NAPTR;
-#
-# $Id: NAPTR.pm 583 2006-05-03 12:24:18Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 583 $)[1];
-
-
-
-
-__PACKAGE__->set_rrsort_func("order",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{'order'} <=> $b->{'order'}
-				   ||
-				       $a->{'preference'} <=> $b->{'preference'}
-}
-);
-
-
-__PACKAGE__->set_rrsort_func("default_sort",
-			       __PACKAGE__->get_rrsort_func("order")
-
-    );
-
-__PACKAGE__->set_rrsort_func("preference",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{"preference"} <=> $b->{"preference"}
-				   ||
-				       $a->{"order"} <=> $b->{"order"}
-}
-);
-
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"order"} ) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		
-		($self->{"preference"}) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		
-		my ($len) = unpack("\@$offset C", $$data);
-		++$offset;
-		($self->{"flags"}) = unpack("\@$offset a$len", $$data);
-		$offset += $len;
-		
-		$len = unpack("\@$offset C", $$data);
-		++$offset;
-		($self->{"service"}) = unpack("\@$offset a$len", $$data);
-		$offset += $len;
-		
-		$len = unpack("\@$offset C", $$data);
-		++$offset;
-		($self->{"regexp"}) = unpack("\@$offset a$len", $$data);
-		$offset += $len;
-		
-		($self->{"replacement"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-  
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && $string =~ /^      (\d+)      \s+
-				          (\d+)      \s+
-				     ['"] (.*?) ['"] \s+
-				     ['"] (.*?) ['"] \s+
-				     ['"] (.*?) ['"] \s+
-				          (\S+) $/x) {
-
-		$self->{"order"}       = $1;
-		$self->{"preference"}  = $2;
-		$self->{"flags"}       = $3;
-		$self->{"service"}     = $4;
-		$self->{"regexp"}      = $5;
-		$self->{"replacement"} = $6;
-		$self->{"replacement"} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-
-	if (exists $self->{"order"}) {
-		$rdatastr = $self->{"order"}       . ' '   .
-		            $self->{"preference"}  . ' "'  .
-		            $self->{"flags"}       . '" "' .
-		            $self->{"service"}     . '" "' .
-		            $self->{"regexp"}      . '" '  .
-		            $self->{"replacement"} . '.';
-	}
-	else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"order"}) {
-
-		$rdata .= pack("n2", $self->{"order"}, $self->{"preference"});
-
-		$rdata .= pack("C", length $self->{"flags"});
-		$rdata .= $self->{"flags"};
-
-		$rdata .= pack("C", length $self->{"service"});
-		$rdata .= $self->{"service"};
-
-		$rdata .= pack("C", length $self->{"regexp"});
-		$rdata .= $self->{"regexp"};
-
-		$rdata .= $self->_name2wire ($self->{"replacement"});
-
-	      }
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::NAPTR - DNS NAPTR resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Naming Authority Pointer (NAPTR) resource records.
-
-=head1 METHODS
-
-=head2 order
-
-    print "order = ", $rr->order, "\n";
-
-Returns the order field.
-
-=head2 preference
-
-    print "preference = ", $rr->preference, "\n";
-
-Returns the preference field.
-
-=head2 flags
-
-    print "flags = ", $rr->flags, "\n";
-
-Returns the flags field.
-
-=head2 service
-
-    print "service = ", $rr->service, "\n";
-
-Returns the service field.
-
-=head2 regexp
-
-    print "regexp = ", $rr->regexp, "\n";
-
-Returns the regexp field.
-
-=head2 replacement
-
-    print "replacement = ", $rr->replacement, "\n";
-
-Returns the replacement field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-B<Net::DNS::RR::NAPTR> is based on code contributed by Ryan Moats.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2168
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NIMLOC.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NIMLOC.pm
deleted file mode 100644
index bec86aebe41..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NIMLOC.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package Net::DNS::RR::NIMLOC;
-#
-# $Id: NIMLOC.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	return bless $self, $class;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::NIMLOC - DNS NIMLOC resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Nimrod Locator (NIMLOC) resource records.
-
-=head1 METHODS
-
-=head2 rdlength
-
-    print "rdlength = ", $rr->rdlength, "\n";
-
-Returns the length of the record's data section.
-
-=head2 rdata
-
-    $rdata = $rr->rdata;
-
-Returns the record's data section as binary data.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-draft-ietf-nimrod-dns-I<xx>.txt
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NS.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NS.pm
deleted file mode 100644
index 96f60db7847..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NS.pm
+++ /dev/null
@@ -1,106 +0,0 @@
-#
-# $Id: NS.pm 707 2008-02-06 22:27:28Z olaf $
-#
-package Net::DNS::RR::NS;
-
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 707 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"nsdname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"nsdname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"nsdname"} ? "$self->{nsdname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"nsdname"}) {
-		$rdata .= $packet->dn_comp($self->{"nsdname"}, $offset);
-	}
-
-	return $rdata;
-}
-
-
-
-sub _canonicalRdata {
-    # rdata contains a compressed domainname... we should not have that.
-	my ($self) = @_;
-	my $rdata;
-	$rdata= $self->_name2wire(lc($self->{"nsdname"}));
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::NS - DNS NS resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Name Server (NS) resource records.
-
-=head1 METHODS
-
-=head2 nsdname
-
-    print "nsdname = ", $rr->nsdname, "\n";
-
-Returns the name of the nameserver.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-Portions Copyright (c) 2005 O.M, Kolkman, RIPE NCC.
-
-Portions Copyright (c) 2005-2006 O.M, Kolkman, NLnet Labs.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.11
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NSAP.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NSAP.pm
deleted file mode 100644
index 6b432c90246..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NSAP.pm
+++ /dev/null
@@ -1,274 +0,0 @@
-package Net::DNS::RR::NSAP;
-#
-# $Id: NSAP.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my $afi = unpack("\@$offset C", $$data);
-		$self->{"afi"} = sprintf("%02x", $afi);
-		++$offset;
-
-		if ($self->{"afi"} eq "47") {
-			my @idi = unpack("\@$offset C2", $$data);
-			$offset += 2;
-
-			my $dfi = unpack("\@$offset C", $$data);
-			$offset += 1;
-
-			my @aa = unpack("\@$offset C3", $$data);
-			$offset += 3;
-
-			my @rsvd = unpack("\@$offset C2", $$data);
-			$offset += 2;
-
-			my @rd = unpack("\@$offset C2", $$data);
-			$offset += 2;
-
-			my @area = unpack("\@$offset C2", $$data);
-			$offset += 2;
-
-			my @id = unpack("\@$offset C6", $$data);
-			$offset += 6;
-
-			my $sel = unpack("\@$offset C", $$data);
-			$offset += 1;
-
-			$self->{"idi"}  = sprintf("%02x" x 2, @idi);
-			$self->{"dfi"}  = sprintf("%02x" x 1, $dfi);
-			$self->{"aa"}   = sprintf("%02x" x 3, @aa);
-			$self->{"rsvd"} = sprintf("%02x" x 2, @rsvd);
-			$self->{"rd"}   = sprintf("%02x" x 2, @rd);
-			$self->{"area"} = sprintf("%02x" x 2, @area);
-			$self->{"id"}   = sprintf("%02x" x 6, @id);
-			$self->{"sel"}  = sprintf("%02x" x 1, $sel);
-
-		} else {
-			# What to do for unsupported versions?
-		}
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-	
-	if ($string) {
-		$string =~ s/\.//g;  # remove all dots.
-		$string =~ s/^0x//;  # remove leading 0x
-		
-		if ($string =~ /^[a-zA-Z0-9]{40}$/) {
-			@{ $self }{ qw(afi idi dfi aa rsvd rd area id sel) } = 
-				unpack("A2A4A2A6A4A4A4A12A2", $string);
-		} 
-	}
-	
-	return bless $self, $class;
-}
-	
-
-sub idp {
-	my $self = shift;
-
-	return join('', $self->{"afi"},
-		            $self->{"idi"});
-}
-
-sub dsp {
-	my $self = shift;
-
-	return join('', 
-			 $self->{"dfi"},
-			 $self->{"aa"},
-			 $self->rsvd,
-			 $self->{"rd"},
-			 $self->{"area"},
-			 $self->{"id"},
-			 $self->{"sel"});
-}
-
-sub rsvd {
-	my $self = shift;
-
-	return exists $self->{"rsvd"} ? $self->{"rsvd"} : "0000";
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-
-	if (exists $self->{"afi"}) {
-		if ($self->{"afi"} eq "47") {
-			$rdatastr = join('', $self->idp, $self->dsp);
-		} else {
-			$rdatastr = "; AFI $self->{'afi'} not supported";
-		}
-	} else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"afi"}) {
-		$rdata .= pack("C", hex($self->{"afi"}));
-
-		if ($self->{"afi"} eq "47") {
-			$rdata .= str2bcd($self->{"idi"},  2);
-			$rdata .= str2bcd($self->{"dfi"},  1);
-			$rdata .= str2bcd($self->{"aa"},   3);
-			$rdata .= str2bcd(0,               2);	# rsvd
-			$rdata .= str2bcd($self->{"rd"},   2);
-			$rdata .= str2bcd($self->{"area"}, 2);
-			$rdata .= str2bcd($self->{"id"},   6);
-			$rdata .= str2bcd($self->{"sel"},  1);
-		}
-
-		# Checks for other versions would go here.
-	}
-
-	return $rdata;
-}
-
-#------------------------------------------------------------------------------
-# Usage:  str2bcd(STRING, NUM_BYTES)
-#
-# Takes a string representing a hex number of arbitrary length and
-# returns an equivalent BCD string of NUM_BYTES length (with
-# NUM_BYTES * 2 digits), adding leading zeros if necessary.
-#------------------------------------------------------------------------------
-
-# This can't be the best way....
-sub str2bcd {
-	my ($string, $bytes) = @_;
-	my $retval = "";
-
-	my $digits = $bytes * 2;
-	$string = sprintf("%${digits}s", $string);
-	$string =~ tr/ /0/;
-
-	my $i;
-	for ($i = 0; $i < $bytes; ++$i) {
-		my $bcd = substr($string, $i*2, 2);
-		$retval .= pack("C", hex $bcd);
-	}
-
-	return $retval;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::NSAP - DNS NSAP resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Network Service Access Point (NSAP) resource records.
-
-=head1 METHODS
-
-=head2 idp
-
-    print "idp = ", $rr->idp, "\n";
-
-Returns the RR's initial domain part (the AFI and IDI fields).
-
-=head2 dsp
-
-    print "dsp = ", $rr->dsp, "\n";
-
-Returns the RR's domain specific part (the DFI, AA, Rsvd, RD, Area,
-ID, and SEL fields).
-
-=head2 afi
-
-    print "afi = ", $rr->afi, "\n";
-
-Returns the RR's authority and format identifier.  C<Net::DNS>
-currently supports only AFI 47 (GOSIP Version 2).
-
-=head2 idi
-
-    print "idi = ", $rr->idi, "\n";
-
-Returns the RR's initial domain identifier.
-
-=head2 dfi
-
-    print "dfi = ", $rr->dfi, "\n";
-
-Returns the RR's DSP format identifier.
-
-=head2 aa 
-
-    print "aa = ", $rr->aa, "\n";
-
-Returns the RR's administrative authority.
-
-=head2 rsvd 
-
-    print "rsvd = ", $rr->rsvd, "\n";
-
-Returns the RR's reserved field.
-
-=head2 rd
-
-    print "rd = ", $rr->rd, "\n";
-
-Returns the RR's routing domain identifier.
-
-=head2 area
-
-    print "area = ", $rr->area, "\n";
-
-Returns the RR's area identifier.
-
-=head2 id
-
-    print "id = ", $rr->id, "\n";
-
-Returns the RR's system identifier.
-
-=head2 sel
-
-    print "sel = ", $rr->sel, "\n";
-
-Returns the RR's NSAP selector.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.. 
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1706.
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NULL.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NULL.pm
deleted file mode 100644
index db6e58651b0..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/NULL.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package Net::DNS::RR::NULL;
-#
-# $Id: NULL.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-use Net::DNS::Packet;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	return bless $self, $class;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::NULL - DNS NULL resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Null (NULL) resource records.
-
-=head1 METHODS
-
-=head2 rdlength
-
-    print "rdlength = ", $rr->rdlength, "\n";
-
-Returns the length of the record's data section.
-
-=head2 rdata
-
-    $rdata = $rr->rdata;
-
-Returns the record's data section as binary data.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.10
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/OPT.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/OPT.pm
deleted file mode 100644
index 67c9e1ba0af..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/OPT.pm
+++ /dev/null
@@ -1,286 +0,0 @@
-package Net::DNS::RR::OPT;
-#
-# $Id: OPT.pm 393 2005-07-01 19:21:52Z olaf $
-#
-
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION %extendedrcodesbyname %extendedrcodesbyval $EDNSVERSION);
-
-use Carp;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 393 $)[1];
-
-$EDNSVERSION = 0;
-
-%extendedrcodesbyname = (
-	"ONLY_RDATA" => 0,		# No name specified see 4.6 of 2671 
-	"UNDEF1"     => 1,
-	"UNDEF2"     => 2,
-	"UNDEF3"     => 3,
-	"UNDEF4"     => 4,
-	"UNDEF5"     => 5,
-	"UNDEF6"     => 6,
-	"UNDEF7"     => 7,
-	"UNDEF8"     => 8,
-	"UNDEF9"     => 9,
-	"UNDEF10"    => 10,
-	"UNDEF11"    => 11,
-	"UNDEF12"    => 12,
-	"UNDEF13"    => 13,
-	"UNDEF14"    => 14,
-	"UNDEF15"    => 15,
-	"BADVERS"    => 16,		# RFC 2671
-);
-%extendedrcodesbyval = reverse %extendedrcodesbyname;
-
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	$self->{"name"} = "" ;   # should allway be "root"
-
-	if ($self->{"rdlength"} > 0) {
-		$self->{"optioncode"}   = unpack("n", substr($$data, $offset, 2));
-		$self->{"optionlength"} = unpack("n", substr($$data, $offset+2, 2));
-		$self->{"optiondata"}   = unpack("n", substr($$data, $offset+4, $self->{"optionlength"}));
-	}
-
-	$self->{"_rcode_flags"}  = pack("N",$self->{"ttl"});
-	
-	$self->{"extendedrcode"} = unpack("C", substr($self->{"_rcode_flags"}, 0, 1));
-	$self->{"ednsversion"}   = unpack("C", substr($self->{"_rcode_flags"}, 1, 1));
-	$self->{"ednsflags"}     = unpack("n", substr($self->{"_rcode_flags"}, 2, 2));
-	
-	
-	return bless $self, $class;
-}
-
-
-
-
-
-
-sub new_from_string {
-    my ($class, $self ) = @_;
-    
-    # There is no such thing as an OPT RR in a ZONE file. 
-    # Not implemented!
-    croak "You should not try to create a OPT RR from a string\nNot implemented";
-    return bless $self, $class;
-}
-
-
-
-sub new_from_hash {
-	my ($class, $self ) = @_;
-	
-	$self->{"name"} = "" ;   # should allway be "root"
-	# Setting the MTU smaller then 512 does not make sense 
-	# should we test for a maximum here?
-	if ($self->{"class"} eq "IN" || $self->{"class"} < 512) {
-		$self->{"class"} = 512;    # Default value...
-	}
-	
-	$self->{"extendedrcode"} = 0 unless exists $self->{"extendedrcode"};
-	
-	$self->{"ednsflags"}   = 0 unless exists $self->{"ednsflags"};
-	$self->{"ednsversion"} = $EDNSVERSION unless exists $self->{"ednsversion"};
-	$self->{"ttl"}= unpack ("N", 
-		pack("C", $self->{"extendedrcode"}) .
-		pack("C", $self->{"ednsversion"})  .
-		pack("n", $self->{"ednsflags"})
-	);
-	
-	if (exists  $self->{"optioncode"}) {
-		$self->{"optiondata"}   = "" if ! exists  $self->{"optiondata"};
-		$self->{"optionlength"} = length $self->{"optiondata"}
-	}
-	
-	return bless $self, $class;
-
-}
-
-
-
-
-
-sub string {
-   my $self = shift;
-   return
-	"; EDNS Version "     . $self->{"ednsversion"} . 
-	"\t UDP Packetsize: " .  $self->{"class"} . 
-	"\n; EDNS-RCODE:\t"   . $self->{"extendedrcode"} .
-	" (" . $extendedrcodesbyval{ $self->{"extendedrcode"} }. ")" .
-	"\n; EDNS-FLAGS:\t"   . sprintf("0x%04x", $self->{"ednsflags"}) .
-	"\n";
-}
-
-
-sub rdatastr {
-	return '; Parsing of OPT rdata is not yet implemented';
-}
-
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata;
-	
-	if (exists $self->{"optioncode"}) {
-		$rdata  = pack("n", $self->{"optioncode"});
-		$rdata .= pack("n", $self->{"optionlength"}); 
-		$rdata .= $self->{"optiondata"}
-	} else {
-		$rdata = "";
-	}
-	
-	return $rdata;
-}
-
-
-
-
-
-
-
-sub do{
-    my $self=shift;
-    return ( 0x8000 & $self->{"ednsflags"} );
-}
-
-
-
-sub set_do{
-    my $self=shift;
-    return $self->{"ednsflags"} = ( 0x8000 | $self->{"ednsflags"} );
-
-}
-
-
-
-sub clear_do{
-    my $self=shift;
-    return $self->{"ednsflags"} = ( ~0x8000 & $self->{"ednsflags"} );
-
-}
-
-
-
-sub size {
-    my $self=shift;
-    my $size=shift;
-    $self->{"class"}=$size if defined($size);
-    return $self->{"class"};
-}
-
-
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::OPT - DNS OPT
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for EDNS pseudo resource record OPT.
-
-=head1 METHODS
-
-This object should only be used inside the Net::DNS classes itself.
-
-=head2 new 
-
-Since "OPT" is a pseudo record and should not be stored in
-masterfiles; Therefore we have not implemented a method to create this
-RR from string.
-
-One may create the object from a hash. See RFC 2671 for details for
-the meaning of the hash keys.
-
- $rr= new Net::DNS::RR {
-    name => "",     # Ignored and set to ""
-    type => "OPT",  
-    class => 1024,    # sets UDP payload size
-    extendedrcode =>  0x00,    # sets the extended RCODE 1 octets
-    ednsflags     =>  0x0000,  # sets the ednsflags (2octets)  
-    optioncode   =>   0x0      # 2 octets
-    optiondata   =>   0x0      # optionlength octets
- }    
-
-The ednsversion is set to 0 for now. The ttl value is determined from 
-the extendedrcode, the ednsversion and the ednsflag.
-The rdata is constructed from the optioncode and optiondata 
-see section 4.4 of RFC 2671
-
-If optioncode is left undefined then we do not expect any RDATA.
-
-The defaults are no rdata.   
-
-
-=head2 do, set_do, clear_do
-
-    $opt->set_do;
-
-Reads, sets and clears the do flag. (first bit in the ednssflags);
-
-
-=head2 size
-
-    $opt->size(1498);
-    print "Packet size:". $opt->size() ;
- 
-Sets or gets the packet size.
-
-
-=head1 TODO
-
-- This class is tailored to use with dnssec. 
-
-- Do some range checking on the input.
-
-- This class probably needs subclasses once OPTION codes start to be defined.
-
-- look at use of extended labels
-
-=head1 COPYRIGHT
-
-Copyright (c) 2001, 2002  RIPE NCC.  Author Olaf M. Kolkman
-
-All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the name of the author not be
-used in advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.
-
-
-THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS; IN NO EVENT SHALL
-AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
-DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
-AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-Based on, and contains, code by Copyright (c) 1997-2002 Michael Fuhr.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2435 Section 3
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PTR.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PTR.pm
deleted file mode 100644
index bf894f26c07..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PTR.pm
+++ /dev/null
@@ -1,101 +0,0 @@
-package Net::DNS::RR::PTR;
-#
-# $Id: PTR.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"ptrdname"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ s/\.+$//;
-		$self->{"ptrdname"} = $string;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"ptrdname"} ? "$self->{ptrdname}." : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"ptrdname"}) {
-		$rdata .= $packet->dn_comp(lc($self->{"ptrdname"}), $offset);
-	}
-
-	return $rdata;
-}
-
-sub  _canonicalRdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"ptrdname"}) {
-		$rdata .= $self->_name2wire($self->{"ptrdname"});
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::PTR - DNS PTR resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Pointer (PTR) resource records.
-
-=head1 METHODS
-
-=head2 ptrdname
-
-    print "ptrdname = ", $rr->ptrdname, "\n";
-
-Returns the domain name associated with this record.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.12
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PX.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PX.pm
deleted file mode 100644
index a9b4a3206e6..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/PX.pm
+++ /dev/null
@@ -1,153 +0,0 @@
-package Net::DNS::RR::PX;
-#
-# $Id: PX.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-
-
-# Highest preference sorted first.
-
-__PACKAGE__->set_rrsort_func("preference",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{'preference'} <=> $b->{'preference'}
-}
-);
-
-
-__PACKAGE__->set_rrsort_func("default_sort",
-			       __PACKAGE__->get_rrsort_func("preference")
-
-    );
-
-
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"preference"}) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-
-		($self->{"map822"},  $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-		($self->{"mapx400"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\s+(\S+)\s+(\S+)$/)) {
-		$self->{"preference"} = $1;
-		$self->{"map822"}     = $2;
-		$self->{"mapx400"}    = $3;
-		$self->{"map822"}     =~ s/\.+$//;;
-		$self->{"mapx400"}    =~ s/\.+$//;;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"preference"}
-	       ? "$self->{preference} $self->{map822}. $self->{mapx400}."
-	       : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"preference"}) {
-		$rdata .= pack("n", $self->{"preference"});
-
-		$rdata .= $packet->dn_comp($self->{"map822"},
-					    $offset + length $rdata);
-
-		$rdata .= $packet->dn_comp($self->{"mapx400"},
-					    $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-
-sub _canonicalRdata {
-	my ($self) = shift;
-	my $rdata = "";
-
-	if (exists $self->{"preference"}) {
-		$rdata .= pack("n", $self->{"preference"});
-		$rdata .= $self->_name2wire(lc($self->{"map822"}));
-		$rdata .= $self->_name2wire(lc($self->{"mapx400"}));
-	}
-
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::PX - DNS PX resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS X.400 Mail Mapping Information (PX) resource records.
-
-=head1 METHODS
-
-=head2 preference
-
-    print "preference = ", $rr->preference, "\n";
-
-Returns the preference given to this RR.
-
-=head2 map822
-
-    print "map822 = ", $rr->map822, "\n";
-
-Returns the RFC822 part of the RFC1327 mapping information.
-
-=head2 mapx400
-
-    print "mapx400 = ", $rr->mapx400, "\n";
-
-Returns the X.400 part of the RFC1327 mapping information.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC822, RFC 1327, RFC 2163
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RP.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RP.pm
deleted file mode 100644
index 7c422c3a17c..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RP.pm
+++ /dev/null
@@ -1,121 +0,0 @@
-package Net::DNS::RR::RP;
-#
-# $Id: RP.pm 702 2008-01-21 10:01:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 702 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"mbox"},     $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-		($self->{"txtdname"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\S+)\s+(\S+)$/)) {
-		$self->{"mbox"}     = $1;
-		$self->{"txtdname"} = $2;
-		$self->{"mbox"}     =~ s/\.+$//;
-		$self->{"txtdname"} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	if (exists $self->{"mbox"}) {
-		return "$self->{mbox}. $self->{txtdname}.";
-	}
-	return '';
-	
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"mbox"}) {
-		$rdata .= $packet->dn_comp($self->{"mbox"}, $offset);
-		$rdata .= $packet->dn_comp($self->{"txtdname"},
-					   $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-
-sub _canonicalRdata {
-    my $self  = shift;
-    my $rdata = "";
-	if (exists $self->{"mbox"}) {
-		$rdata .= $self->_name2wire(lc($self->{"mbox"}));
-		$rdata .= $self->_name2wire(lc($self->{"txtdname"}));
-
-
-	}
-
-    return $rdata;
-}
-
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::RP - DNS RP resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Responsible Person (RP) resource records.
-
-=head1 METHODS
-
-=head2 mbox
-
-    print "mbox = ", $rr->mbox, "\n";
-
-Returns a domain name that specifies the mailbox for the responsible person.
-
-=head2 txtdname
-
-    print "txtdname = ", $rr->txtdname, "\n";
-
-Returns a domain name that specifies a TXT record containing further
-information about the responsible person.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1183 Section 2.2
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RT.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RT.pm
deleted file mode 100644
index 22f0891d944..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/RT.pm
+++ /dev/null
@@ -1,133 +0,0 @@
-package Net::DNS::RR::RT;
-#
-# $Id: RT.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-# Highest preference sorted first.
-__PACKAGE__->set_rrsort_func("preference",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{'preference'} <=> $b->{'preference'}
-}
-);
-
-
-__PACKAGE__->set_rrsort_func("default_sort",
-			       __PACKAGE__->get_rrsort_func("preference")
-
-    );
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"preference"})   = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		
-		($self->{"intermediate"}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\s+(\S+)$/)) {
-		$self->{"preference"}   = $1;
-		$self->{"intermediate"} = $2;
-		$self->{"intermediate"} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return $self->{"preference"}
-	       ? "$self->{preference} $self->{intermediate}."
-	       : '';
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"preference"}) {
-		$rdata .= pack("n", $self->{"preference"});
-		$rdata .= $packet->dn_comp($self->{"intermediate"},
-					   $offset + length $rdata);
-	}
-
-	return $rdata;
-}
-
-sub _canonicalRdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"preference"}) {
-		$rdata .= pack("n", $self->{"preference"});
-		$rdata .= $self->_name2wire(lc($self->{"intermediate"}));
-	}
-
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::RT - DNS RT resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Route Through (RT) resource records.
-
-=head1 METHODS
-
-=head2 preference
-
-    print "preference = ", $rr->preference, "\n";
-
-Returns the preference for this route.
-
-=head2 intermediate
-
-    print "intermediate = ", $rr->intermediate, "\n";
-
-Returns the domain name of the intermediate host.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1183 Section 3.3
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SOA.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SOA.pm
deleted file mode 100644
index 9cf24d4def1..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SOA.pm
+++ /dev/null
@@ -1,176 +0,0 @@
-package Net::DNS::RR::SOA;
-#
-# $Id: SOA.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"mname"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-		($self->{"rname"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-
-		@{$self}{qw(serial refresh retry expire minimum)} = unpack("\@$offset N5", $$data);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string) {
-		$string =~ tr/()//d;
-		
-		# XXX do we need to strip out comments here now that RR.pm does it?
-		$string =~ s/;.*$//mg;
-
-		@{$self}{qw(mname rname serial refresh retry expire minimum)} = $string =~ /(\S+)/g;
-
-		$self->{'mname'} =~ s/\.+$//;
-		$self->{'rname'} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-
-	if (exists $self->{"mname"}) {
-		$rdatastr  = "$self->{mname}. $self->{rname}. (\n";
-		$rdatastr .= "\t" x 5 . "$self->{serial}\t; Serial\n";
-		$rdatastr .= "\t" x 5 . "$self->{refresh}\t; Refresh\n";
-		$rdatastr .= "\t" x 5 . "$self->{retry}\t; Retry\n";
-		$rdatastr .= "\t" x 5 . "$self->{expire}\t; Expire\n";
-		$rdatastr .= "\t" x 5 . "$self->{minimum} )\t; Minimum TTL";
-	} else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	# Assume that if one field exists, they all exist.  Script will
-	# print a warning otherwise.
-
-	if (exists $self->{"mname"}) {
-		$rdata .= $packet->dn_comp($self->{"mname"}, $offset);
-		$rdata .= $packet->dn_comp($self->{"rname"},  $offset + length $rdata);
-
-		$rdata .= pack("N5", @{$self}{qw(serial refresh retry expire minimum)});
-	}
-
-	return $rdata;
-}
-
-
-
-sub _canonicalRdata {
-    my $self=shift;
-    my $rdata = "";
-
-    # Assume that if one field exists, they all exist.  Script will
-    # print a warning otherwise.
-    
-    if (exists $self->{"mname"}) {
-		$rdata .= $self->_name2wire(lc($self->{"mname"}));		
-		$rdata .= $self->_name2wire(lc($self->{"rname"}));
-		$rdata .= pack("N5", @{$self}{qw(serial refresh retry expire minimum)});
-	}
-
-	return $rdata;
-}
-
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::SOA - DNS SOA resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Start of Authority (SOA) resource records.
-
-=head1 METHODS
-
-=head2 mname
-
-    print "mname = ", $rr->mname, "\n";
-
-Returns the domain name of the original or primary nameserver for
-this zone.
-
-=head2 rname
-
-    print "rname = ", $rr->rname, "\n";
-
-Returns a domain name that specifies the mailbox for the person
-responsible for this zone.
-
-=head2 serial
-
-    print "serial = ", $rr->serial, "\n";
-
-Returns the zone's serial number.
-
-=head2 refresh
-
-    print "refresh = ", $rr->refresh, "\n";
-
-Returns the zone's refresh interval.
-
-=head2 retry
-
-    print "retry = ", $rr->retry, "\n";
-
-Returns the zone's retry interval.
-
-=head2 expire
-
-    print "expire = ", $rr->expire, "\n";
-
-Returns the zone's expire interval.
-
-=head2 minimum
-
-    print "minimum = ", $rr->minimum, "\n";
-
-Returns the minimum (default) TTL for records in this zone.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.13
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SPF.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SPF.pm
deleted file mode 100644
index d8cd48c8e51..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SPF.pm
+++ /dev/null
@@ -1,48 +0,0 @@
-package Net::DNS::RR::SPF;
-#
-# $Id: SPF.pm 684 2007-10-10 12:32:22Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-use Net::DNS::RR::TXT;
-
-
-@ISA     = qw(Net::DNS::RR::TXT);
-$VERSION = (qw$LastChangedRevision: 684 $)[1];
-
-1;
-
-=head1 NAME
-
-Net::DNS::RR::SPF - DNS SPF resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-This is a clone of the TXT record. This class therfore completely inherits
-all properties of the Net::DNS::RR::TXT class.
-
-Please see the L<Net::DNS::RR::TXT> perldocumentation for details
-
-=head1 COPYRIGHT
-
-Copyright (c) 2005 Olaf Kolkman (NLnet Labs)
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.14, RFC 4408
-
-
-=cut
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SRV.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SRV.pm
deleted file mode 100644
index a80ded72ba5..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SRV.pm
+++ /dev/null
@@ -1,151 +0,0 @@
-package Net::DNS::RR::SRV;
-#
-# $Id: SRV.pm 583 2006-05-03 12:24:18Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 583 $)[1];
-
-
-
-__PACKAGE__->set_rrsort_func("priority",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $a->{'priority'} <=> $b->{'priority'}
-				   ||
-				       $b->{'weight'} <=> $a->{'weight'}
-}
-);
-
-
-__PACKAGE__->set_rrsort_func("default_sort",
-			       __PACKAGE__->get_rrsort_func("priority")
-
-    );
-
-__PACKAGE__->set_rrsort_func("weight",
-			       sub {
-				   my ($a,$b)=($Net::DNS::a,$Net::DNS::b);
-				   $b->{"weight"} <=> $a->{"weight"}
-				   ||
-				       $a->{"priority"} <=> $b->{"priority"}
-}
-);
-
-
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{'rdlength'} > 0) {
-		@{$self}{qw(priority weight port)} = unpack("\@$offset n3", $$data);
-		$offset += 3 * Net::DNS::INT16SZ();
-		
-		($self->{'target'}) = Net::DNS::Packet::dn_expand($data, $offset);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(\d+)\s+(\d+)\s+(\d+)\s+(\S+)$/)) {
-		@{$self}{qw(priority weight port target)} = ($1, $2, $3, $4);
-
-		$self->{'target'} =~ s/\.+$//;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-	my $rdatastr;
-
-	if (exists $self->{'priority'}) {
-		$rdatastr = join(' ', @{$self}{qw(priority weight port target)});
-		$rdatastr =~ s/(.*[^\.])$/$1./;
-	} else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = '';
-
-	if (exists $self->{'priority'}) {
-		$rdata .= pack('n3', @{$self}{qw(priority weight port)});
-		$rdata .=  $self->_name2wire ($self->{"target"});
-
-	      }
-	
-	return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::SRV - DNS SRV resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Service (SRV) resource records.
-
-=head1 METHODS
-
-=head2 priority
-
-    print "priority = ", $rr->priority, "\n";
-
-Returns the priority for this target host.
-
-=head2 weight
-
-    print "weight = ", $rr->weight, "\n";
-
-Returns the weight for this target host.
-
-=head2 port
-
-    print "port = ", $rr->port, "\n";
-
-Returns the port on this target host for the service.
-
-=head2 target
-
-    print "target = ", $rr->target, "\n";
-
-Returns the target host.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2782
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SSHFP.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SSHFP.pm
deleted file mode 100644
index 4890c3766e3..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/SSHFP.pm
+++ /dev/null
@@ -1,219 +0,0 @@
-package Net::DNS::RR::SSHFP;
-#
-# $Id: SSHFP.pm 626 2007-02-02 07:31:32Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION $HasBabble);
-
-BEGIN {
-	eval {
-		require Digest::BubbleBabble; 
-		Digest::BubbleBabble->import(qw(bubblebabble))
-	};
-		
-	$HasBabble = $@ ? 0 : 1;
-	
-}
-
-$VERSION = (qw$LastChangedRevision: 626 $)[1];
-
-@ISA = qw(Net::DNS::RR);
-
-my %algtype = (
-	RSA => 1,
-	DSA => 2,
-);
-
-my %fingerprinttype = (
-	'SHA-1' => 1,
-);
-
-my %fingerprinttypebyval = reverse %fingerprinttype;
-my %algtypebyval	     = reverse %algtype;
-
-
-sub new {
-    my ($class, $self, $data, $offset) = @_;
-    
-	if ($self->{'rdlength'} > 0) {
-		my $offsettoalg    = $offset;
-		my $offsettofptype = $offset+1;
-		my $offsettofp     = $offset+2;
-		my $fplength       = 20;   # This will need to change if other fingerprint types
-								   # are being deployed.
-	
-	
-		$self->{'algorithm'} = unpack('C', substr($$data, $offsettoalg, 1));
-		$self->{'fptype'}    = unpack('C', substr($$data, $offsettofptype, 1));
-	
-		unless (defined $fingerprinttypebyval{$self->{'fptype'}}){
-		  warn "This fingerprint type $self->{'fptype'} has not yet been implemented, creation of SSHFP failed\n." ;
-		  return undef;
-		}
-
-							   
-		# All this is SHA-1 dependend
-		$self->{'fpbin'} = substr($$data,$offsettofp, $fplength); # SHA1 digest 20 bytes long
-	
-		$self->{'fingerprint'} = uc unpack('H*', $self->{'fpbin'});
-    }
-    
-    
-    return bless $self, $class;
-}
-
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-	
-	if ($string) {		
-		$string =~ tr/()//d;
-		$string =~ s/;.*$//mg;
-		$string =~ s/\n//g;
-		
-		@{$self}{qw(algorithm fptype fingerprint)} = split(m/\s+/, $string, 3);
-					
-		# We allow spaces in the fingerprint.
-		$self->{'fingerprint'} =~ s/\s//g;		
-    }
-	    
-	return bless $self, $class;
-}
-
-
-
-sub rdatastr {
-	my $self     = shift;
-	my $rdatastr = '';
-
-	if (exists $self->{"algorithm"}) {
-		$rdatastr = join('  ', @{$self}{qw(algorithm fptype fingerprint)}) 
-					.' ; ' . $self->babble;
-	} 
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-    my $self = shift;
-
-    if (exists $self->{"algorithm"}) {   	    
-    	return pack('C2',  @{$self}{qw(algorithm fptype)}) . $self->fpbin;
-    }
-    
-    return '';
-
-}
-
-
-
-sub babble {
-    my $self = shift;
-    
-    if ($HasBabble) {
-		return bubblebabble(Digest => $self->fpbin);	
-    } else {
-		return "";
-    }
-}
-
-
-sub fpbin {
-	my ($self) = @_;
-			
-	return $self->{'fpbin'} ||= pack('H*', $self->{'fingerprint'});
-}
-	
-
-1;
-
-
-=head1 NAME
-
-Net::DNS::RR::SSHFP - DNS SSHFP resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for Delegation signer (SSHFP) resource records.
-
-=head1 METHODS
-
-In addition to the regular methods 
-
-
-=head2 algorithm
-
-    print "algoritm" = ", $rr->algorithm, "\n";
-
-Returns the RR's algorithm field in decimal representation
-
-    1 = RSA
-    2 = DSS
-
-
-=head2 fingerprint
-
-    print "fingerprint" = ", $rr->fingerprint, "\n";
-
-Returns the SHA1 fingerprint over the label and key in hexadecimal
-representation.
-
-
-=head2 fpbin
-
-    $fpbin = $rr->fpbin;
-
-Returns the fingerprint as binary material.
-
-
-=head2 fptype
-
-   print "fingerprint type" . " = " . $rr->fptype ."\n";
-
-Returns the fingerprint type of the SSHFP RR.
-
-=head2 babble
-
-   print $rr->babble;
-
-If Digest::BubbleBabble is available on the sytem this method returns the
-'BabbleBubble' representation of the fingerprint. The 'BabbleBubble'
-string may be handy for telephone confirmation.
-
-The 'BabbleBubble' string returned as a comment behind the RDATA when
-the string method is called.
-
-The method returns an empty string if Digest::BubbleBable is not installed.
-
-=head1 TODO 
-
-=head1 ACKNOWLEDGEMENT
-
-Jakob Schlyter for code review and supplying patches.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2004 RIPE NCC, Olaf Kolkman.
-
-"All rights reserved, This program is free software; you may redistribute it
-and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-draft-ietf-dnssext-delegation-signer
-
-=cut
-
-
-
-
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TKEY.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TKEY.pm
deleted file mode 100644
index 7bf838bb8e5..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TKEY.pm
+++ /dev/null
@@ -1,208 +0,0 @@
-package Net::DNS::RR::TKEY;
-#
-# $Id: TKEY.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-use Digest::HMAC_MD5;
-use MIME::Base64;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	# if we have some data then we are parsing an incoming TKEY packet
-	# see RFC2930 for the packet format
-	if ($self->{"rdlength"} > 0) {
-		($self->{"algorithm"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-
-		@{$self}{qw(inception expiration)} = unpack("\@$offset NN", $$data);
-		$offset += Net::DNS::INT32SZ() + Net::DNS::INT32SZ();
-
-		@{$self}{qw(inception expiration)} = unpack("\@$offset nn", $$data);
-		$offset += Net::DNS::INT16SZ() + Net::DNS::INT16SZ();
-
-		my ($key_len) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		$self->{"key"} = substr($$data, $offset, $key_len);
-		$offset += $key_len;
-
-		my ($other_len) = unpack("\@$offset n", $$data);
-		$offset += Net::DNS::INT16SZ();
-		$self->{"other_data"} = substr($$data, $offset, $other_len);
-		$offset += $other_len;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(.*)$/)) {
-		$self->{"key"}     = $1;
-	}
-
-	$self->{"algorithm"}   = "gss.microsoft.com";
-	$self->{"inception"}   = time;
-	$self->{"expiration"}  = time + 24*60*60;
-	$self->{"mode"}        = 3; # GSSAPI
-	$self->{"error"}       = 0;
-	$self->{"other_len"}   = 0;
-	$self->{"other_data"}  = "";
-
-	return bless $self, $class;
-}
-
-sub error {
-	my $self = shift;
-
-	my $rcode;
-	my $error = $self->{"error"};
-
-	if (defined($error)) {
-		$rcode = $Net::DNS::rcodesbyval{$error} || $error;
-	}
-
-	return $rcode;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	my $error = $self->error;
-	$error = "UNDEFINED" unless defined $error;
-
-	my $rdatastr;
-
-	if (exists $self->{"algorithm"}) {
-		$rdatastr = "$self->{algorithm}. $error";
-		if ($self->{"other_len"} && defined($self->{"other_data"})) {
-			$rdatastr .= " $self->{other_data}";
-		}
-	} else {
-		$rdatastr = '';
-	}
-
-	return $rdatastr;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	$packet->{"compnames"} = {};
-	$rdata .= $packet->dn_comp($self->{"algorithm"}, 0);
-	$rdata .= pack("N", $self->{"inception"});
-	$rdata .= pack("N", $self->{"expiration"});
-	$rdata .= pack("n", $self->{"mode"});
-	$rdata .= pack("n", 0); # error
-	$rdata .= pack("n", length($self->{"key"}));
-	$rdata .= $self->{"key"};
-	$rdata .= pack("n", length($self->{"other_data"}));
-	$rdata .= $self->{"other_data"};
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::TKEY - DNS TKEY resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS TKEY resource records.
-
-=head1 METHODS
-
-=head2 algorithm
-
-    $rr->algorithm($algorithm_name);
-    print "algorithm = ", $rr->algorithm, "\n";
-
-Gets or sets the domain name that specifies the name of the algorithm.
-The default algorithm is gss.microsoft.com
-
-=head2 inception
-
-    $rr->inception(time);
-    print "inception = ", $rr->inception, "\n";
-
-Gets or sets the inception time as the number of seconds since 1 Jan 1970
-00:00:00 UTC.
-
-The default inception time is the current time.
-
-=head2 expiration
-
-    $rr->expiration(time);
-    print "expiration = ", $rr->expiration, "\n";
-
-Gets or sets the expiration time as the number of seconds since 1 Jan 1970
-00:00:00 UTC.
-
-The default expiration time is the current time plus 1 day.
-
-=head2 mode
-
-    $rr->mode(3);
-    print "mode = ", $rr->mode, "\n";
-
-Sets the key mode (see rfc2930). The default is 3 which corresponds to GSSAPI
-
-=head2 error
-
-    print "error = ", $rr->error, "\n";
-
-Returns the RCODE covering TKEY processing.  See RFC 2930 for details.
-
-=head2 other_len
-
-    print "other len = ", $rr->other_len, "\n";
-
-Returns the length of the Other Data.  Should be zero.
-
-=head2 other_data
-
-    print "other data = ", $rr->other_data, "\n";
-
-Returns the Other Data.  This field should be empty.
-
-=head1 BUGS
-
-This code has not been extensively tested.  Use with caution on
-production systems. See http://samba.org/ftp/samba/tsig-gss/ for an
-example usage.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2000 Andrew Tridgell.  All rights reserved.  This program
-is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=head1 ACKNOWLEDGMENT
-
-The Net::DNS::RR::TKEY module is based on the TSIG module by Michael
-Fuhr and Chris Turbeville.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2845
-
-=cut
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TSIG.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TSIG.pm
deleted file mode 100644
index 844072fd170..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TSIG.pm
+++ /dev/null
@@ -1,353 +0,0 @@
-package Net::DNS::RR::TSIG;
-#
-# $Id: TSIG.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-use Digest::HMAC_MD5;
-use MIME::Base64;
-
-use constant DEFAULT_ALGORITHM => "HMAC-MD5.SIG-ALG.REG.INT";
-use constant DEFAULT_FUDGE     => 300;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-# a signing function for the HMAC-MD5 algorithm. This can be overridden using
-# the sign_func element
-sub sign_hmac {
-	my ($key, $data) = @_;
-
-	$key =~ s/ //g;
-	$key = decode_base64($key);
-
-	my $hmac = Digest::HMAC_MD5->new($key);
-	$hmac->add($data);
-
-	return $hmac->digest;
-}
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		($self->{"algorithm"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset);
-
-		my ($time_high, $time_low) = unpack("\@$offset nN", $$data);
-		$self->{"time_signed"} = $time_low;	# bug
-		$offset += Net::DNS::INT16SZ() + Net::DNS::INT32SZ();
-
-		@{$self}{qw(fudge mac_size)} = unpack("\@$offset nn", $$data);
-		$offset += Net::DNS::INT16SZ() + Net::DNS::INT16SZ();
-
-		$self->{"mac"} = substr($$data, $offset, $self->{'mac_size'});
-		$offset += $self->{'mac_size'};
-
-		@{$self}{qw(original_id error other_len)} = unpack("\@$offset nnn", $$data);
-		$offset += Net::DNS::INT16SZ() * 3;
-
-		my $odata = substr($$data, $offset, $self->{'other_len'});
-		my ($odata_high, $odata_low) = unpack("nN", $odata);
-		$self->{"other_data"} = $odata_low;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && ($string =~ /^(.*)$/)) {
-		$self->{"key"}     = $1;
-	}
-
-	$self->{"algorithm"}   = DEFAULT_ALGORITHM;
-	$self->{"time_signed"} = time;
-	$self->{"fudge"}       = DEFAULT_FUDGE;
-	$self->{"mac_size"}    = 0;
-	$self->{"mac"}         = "";
-	$self->{"original_id"} = 0;
-	$self->{"error"}       = 0;
-	$self->{"other_len"}   = 0;
-	$self->{"other_data"}  = "";
-	$self->{"sign_func"}   = \&sign_hmac;
-
-	# RFC 2845 Section 2.3
-	$self->{"class"} = "ANY";
-
-	return bless $self, $class;
-}
-
-sub error {
-	my $self = shift;
-
-	my $rcode;
-	my $error = $self->{"error"};
-
-	if (defined($error)) {
-		$rcode = $Net::DNS::rcodesbyval{$error} || $error;
-	}
-
-	return $rcode;
-}
-
-sub mac_size {
-	my $self = shift;
-	return length(defined($self->{"mac"}) ? $self->{"mac"} : "");
-}
-
-sub mac {
-	my $self = shift;
-	my $mac = unpack("H*", $self->{"mac"}) if defined($self->{"mac"});
-	return $mac;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	my $error = $self->error;
-	$error = "UNDEFINED" unless defined $error;
-
-	my $rdatastr;
-
-	if (exists $self->{"algorithm"}) {
-		$rdatastr = "$self->{algorithm}. $error";
-		if ($self->{"other_len"} && defined($self->{"other_data"})) {
-			$rdatastr .= " $self->{other_data}";
-		}
-	} else {
-		$rdatastr = "";
-	}
-
-	return $rdatastr;
-}
-
-# return the data that needs to be signed/verified. This is useful for
-# external TSIG verification routines
-sub sig_data {
-	my ($self, $packet) = @_;
-	my ($newpacket, $sigdata);
-
-	# XXX this is horrible.  $pkt = Net::DNS::Packet->clone($packet); maybe?
-	bless($newpacket = {},"Net::DNS::Packet");
-	%{$newpacket} = %{$packet};
-	bless($newpacket->{"header"} = {},"Net::DNS::Header");
-	$newpacket->{"additional"} = [];
-	%{$newpacket->{"header"}} = %{$packet->{"header"}};
-	@{$newpacket->{"additional"}} = @{$packet->{"additional"}};
-	shift(@{$newpacket->{"additional"}});
-	$newpacket->{"header"}{"arcount"}--;
-	$newpacket->{"compnames"} = {};
-
-	# Add the request MAC if present (used to validate responses).
-	$sigdata .= pack("H*", $self->{"request_mac"})
-	    if $self->{"request_mac"};
-
-	$sigdata .= $newpacket->data;
-
-	# Don't compress the record (key) name.
-	my $tmppacket = Net::DNS::Packet->new("");
-	$sigdata .= $tmppacket->dn_comp(lc($self->{"name"}), 0);
-	
-	$sigdata .= pack("n", $Net::DNS::classesbyname{uc($self->{"class"})});
-	$sigdata .= pack("N", $self->{"ttl"});
-	
-	# Don't compress the algorithm name.
-	$tmppacket->{"compnames"} = {};
-	$sigdata .= $tmppacket->dn_comp(lc($self->{"algorithm"}), 0);
-	
-	$sigdata .= pack("nN", 0, $self->{"time_signed"});	# bug
-	$sigdata .= pack("n", $self->{"fudge"});
-	$sigdata .= pack("nn", $self->{"error"}, $self->{"other_len"});
-	
-	$sigdata .= pack("nN", 0, $self->{"other_data"})
-	    if $self->{"other_data"};
-	
-	return $sigdata;
-}
-
-sub rr_rdata {
-	my ($self, $packet, $offset) = @_;
-	my $rdata = "";
-
-	if (exists $self->{"key"}) {
-		# form the data to be signed
-		my $sigdata = $self->sig_data($packet);
-
-		# and call the signing function
-		$self->{"mac"} = &{$self->{"sign_func"}}($self->{"key"}, $sigdata);
-		$self->{"mac_size"} = length($self->{"mac"});
-
-		# construct the signed TSIG record
-		$packet->{"compnames"} = {};
-		$rdata .= $packet->dn_comp($self->{"algorithm"}, 0);
-
-		$rdata .= pack("nN", 0, $self->{"time_signed"});	# bug
-		$rdata .= pack("nn", $self->{"fudge"}, $self->{"mac_size"});
-		$rdata .= $self->{"mac"};
-
-		$rdata .= pack("nnn",($packet->{"header"}->{"id"},
-		                      $self->{"error"},
-		                      $self->{"other_len"}));
-
-		$rdata .= pack("nN", 0, $self->{"other_data"})
-		    if $self->{"other_data"};
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::TSIG - DNS TSIG resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Transaction Signature (TSIG) resource records.
-
-=head1 METHODS
-
-=head2 algorithm
-
-    $rr->algorithm($algorithm_name);
-    print "algorithm = ", $rr->algorithm, "\n";
-
-Gets or sets the domain name that specifies the name of the algorithm.
-The only algorithm currently supported is HMAC-MD5.SIG-ALG.REG.INT.
-
-=head2 time_signed
-
-    $rr->time_signed(time);
-    print "time signed = ", $rr->time_signed, "\n";
-
-Gets or sets the signing time as the number of seconds since 1 Jan 1970
-00:00:00 UTC.
-
-The default signing time is the current time.
-
-=head2 fudge
-
-    $rr->fudge(60);
-    print "fudge = ", $rr->fudge, "\n";
-
-Gets or sets the "fudge", i.e., the seconds of error permitted in the
-signing time.
-
-The default fudge is 300 seconds.
-
-=head2 mac_size
-
-    print "MAC size = ", $rr->mac_size, "\n";
-
-Returns the number of octets in the message authentication code (MAC).
-The programmer must call a Net::DNS::Packet object's data method
-before this will return anything meaningful.
-
-=head2 mac
-
-    print "MAC = ", $rr->mac, "\n";
-
-Returns the message authentication code (MAC) as a string of hex
-characters.  The programmer must call a Net::DNS::Packet object's
-data method before this will return anything meaningful.
-
-=head2 original_id
-
-    $rr->original_id(12345);
-    print "original ID = ", $rr->original_id, "\n";
-
-Gets or sets the original message ID.
-
-=head2 error
-
-    print "error = ", $rr->error, "\n";
-
-Returns the RCODE covering TSIG processing.  Common values are
-NOERROR, BADSIG, BADKEY, and BADTIME.  See RFC 2845 for details.
-
-=head2 other_len
-
-    print "other len = ", $rr->other_len, "\n";
-
-Returns the length of the Other Data.  Should be zero unless the
-error is BADTIME.
-
-=head2 other_data
-
-    print "other data = ", $rr->other_data, "\n";
-
-Returns the Other Data.  This field should be empty unless the
-error is BADTIME, in which case it will contain the server's
-time as the number of seconds since 1 Jan 1970 00:00:00 UTC.
-
-=head2 sig_data
-
-     my $sigdata = $tsig->sig_data($packet);
-
-Returns the packet packed according to RFC2845 in a form for signing. This
-is only needed if you want to supply an external signing function, such as is 
-needed for TSIG-GSS. 
-
-=head2 sign_func
-
-     sub my_sign_fn($$) {
-	     my ($key, $data) = @_;
-	     
-	     return some_digest_algorithm($key, $data);
-     }
-
-     $tsig->sign_func(\&my_sign_fn);
-
-This sets the signing function to be used for this TSIG record. 
-
-The default signing function is HMAC-MD5.
-
-=head1 BUGS
-
-This code is still under development.  Use with caution on production
-systems.
-
-The time_signed and other_data fields should be 48-bit unsigned
-integers (RFC 2845, Sections 2.3 and 4.5.2).  The current implementation
-ignores the upper 16 bits; this will cause problems for times later
-than 19 Jan 2038 03:14:07 UTC.
-
-The only builtin algorithm currently supported is
-HMAC-MD5.SIG-ALG.REG.INT. You can use other algorithms by supplying an
-appropriate sign_func.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 ACKNOWLEDGMENT
-
-Most of the code in the Net::DNS::RR::TSIG module was contributed
-by Chris Turbeville. 
-
-Support for external signing functions was added by Andrew Tridgell.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 2845
-
-=cut
-
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TXT.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TXT.pm
deleted file mode 100644
index 1c8eb78e3b4..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/TXT.pm
+++ /dev/null
@@ -1,179 +0,0 @@
-package Net::DNS::RR::TXT;
-#
-# $Id: TXT.pm 582 2006-04-25 07:12:19Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-use Text::ParseWords;
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 582 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	
-	my $rdlength = $self->{'rdlength'} or return bless $self, $class;
-	my $end      = $offset + $rdlength;
-	
-	while ($offset < $end) {
-		my $strlen = unpack("\@$offset C", $$data);
-		++$offset;
-		
-		my $char_str = substr($$data, $offset, $strlen);
-		$offset += $strlen;
-		
-		push(@{$self->{'char_str_list'}}, $char_str);
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-    my ( $class, $self, $rdata_string ) = @_ ;
-    
-    bless $self, $class;
-        
-    $self->_build_char_str_list($rdata_string);
-
-    return $self;
-}
-
-sub txtdata {
-	my $self = shift;
-	return join(' ',  $self->char_str_list());
-}
-
-sub rdatastr {
-	my $self = shift;
-		
-	if ($self->char_str_list) {
-		return join(' ', map { 
-			my $str = $_;  
-			$str =~ s/"/\\"/g;  
-			qq("$str");
-		} @{$self->{'char_str_list'}});
-	} 
-	
-	return '';
-}
-
-sub _build_char_str_list {
-	my ($self, $rdata_string) = @_;
-	
-	my @words;
-
-	@words= shellwords($rdata_string) if $rdata_string;
-
-	$self->{'char_str_list'} = [];
-
-	if (@words) {
-		foreach my $string (@words) {
-		    $string =~ s/\\"/"/g;
-		    push(@{$self->{'char_str_list'}}, $string);
-		}
-	}
-}
-
-sub char_str_list {
-	my $self = shift;
-	
-	if (not $self->{'char_str_list'}) {
-		$self->_build_char_str_list( $self->{'txtdata'} );
-	}
-
-	return @{$self->{'char_str_list'}}; # unquoted strings
-}
-
-sub rr_rdata {
-	my $self  = shift;
-	my $rdata = '';
-
-	foreach my $string ($self->char_str_list) {
-	    $rdata .= pack("C", length $string );
-	    $rdata .= $string;
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::TXT - DNS TXT resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Text (TXT) resource records.
-
-=head1 METHODS
-
-=head2 txtdata
-
-    print "txtdata = ", $rr->txtdata, "\n";
-
-Returns the descriptive text as a single string, regardless of actual 
-number of <character-string> elements.  Of questionable value.  Should 
-be deprecated.  
-
-Use C<< $txt->rdatastr() >> or C<< $txt->char_str_list() >> instead.
-
-
-=head2 char_str_list
-
- print "Individual <character-string> list: \n\t", 
-       join("\n\t", $rr->char_str_list());
-
-Returns a list of the individual <character-string> elements, 
-as unquoted strings.  Used by TXT->rdatastr and TXT->rr_rdata.
-
-
-=head1 FEATURES
-
-The RR.pm module accepts semi-colons as a start of a comment. This is
-to allow the RR.pm to deal with RFC1035 specified zonefile format.
-
-For some applications of the TXT RR the semicolon is relevant, you
-will need to escape it on input.
-
-Also note that you should specify the several character strings
-separately. The easiest way to do so is to include the whole argument
-in single quotes and the several character strings in double
-quotes. Double quotes inside the character strings will need to be
-escaped.
-
-my $TXTrr=Net::DNS::RR->new('txt2.t.net-dns.org.	60	IN
-	TXT  "Test1 \" \; more stuff"  "Test2"');
-
-would result in 
-$TXTrr->char_str_list())[0] containing 'Test1 " ; more stuff'
-and
-$TXTrr->char_str_list())[1] containing 'Test2'
-
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-Portions Copyright (c) 2005 Olaf Kolkman (NLnet Labs)
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.14
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/Unknown.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/Unknown.pm
deleted file mode 100644
index 5a32f1ff87f..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/Unknown.pm
+++ /dev/null
@@ -1,82 +0,0 @@
-package Net::DNS::RR::Unknown;
-#
-# $Id: Unknown.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-	
-	my $length = $self->{'rdlength'};
-	
-	if ($length > 0) {
-		$self->{'rdata'}    = substr($$data, $offset,$length);
-		$self->{'rdatastr'} = "\\# $length " . unpack('H*',  $self->{'rdata'});
-	}
-	
-	return bless $self, $class;
-}
-
-
-sub rdatastr {
-	my $self = shift;
-	
-	if (exists $self->{'rdatastr'}) {
-		return $self->{'rdatastr'};
-	} else {
-		if (exists $self->{"rdata"}){
-			my $data= $self->{'rdata'};
-			
-			return  "\\# ". length($data) . "  " . unpack('H*',  $data);
-		}
-	}
-	
-	return "#NO DATA";
-}
-
-
-# sub rr_rdata is inherited from RR.pm. Note that $self->{'rdata'}
-# should always be defined
-
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::Unknown - Unknown RR record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for dealing with unknown RR types (RFC3597)
-
-=head1 METHODS
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-Portions Copyright (c) 2003  Olaf M. Kolkman, RIPE NCC.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<Net::DNS>, L<Net::DNS::RR>, RFC 3597
-
-=cut
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/X25.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/X25.pm
deleted file mode 100644
index 97841a836db..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/X25.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-package Net::DNS::RR::X25;
-#
-# $Id: X25.pm 388 2005-06-22 10:06:05Z olaf $
-#
-use strict;
-BEGIN { 
-    eval { require bytes; }
-} 
-use vars qw(@ISA $VERSION);
-
-@ISA     = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 388 $)[1];
-
-sub new {
-	my ($class, $self, $data, $offset) = @_;
-
-	if ($self->{"rdlength"} > 0) {
-		my ($len) = unpack("\@$offset C", $$data);
-		++$offset;
-		$self->{"psdn"} = substr($$data, $offset, $len);
-		$offset += $len;
-	}
-
-	return bless $self, $class;
-}
-
-sub new_from_string {
-	my ($class, $self, $string) = @_;
-
-	if ($string && $string =~ /^\s*["']?(.*?)["']?\s*$/) {
-		$self->{"psdn"} = $1;
-	}
-
-	return bless $self, $class;
-}
-
-sub rdatastr {
-	my $self = shift;
-
-	return exists $self->{"psdn"}
-	       ? qq("$self->{psdn}")
-	       : '';
-}
-
-sub rr_rdata {
-	my $self = shift;
-	my $rdata = "";
-
-	if (exists $self->{"psdn"}) {
-		$rdata .= pack("C", length $self->{"psdn"});
-		$rdata .= $self->{"psdn"};
-	}
-
-	return $rdata;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::X25 - DNS X25 resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS X25 resource records.
-
-=head1 METHODS
-
-=head2 psdn
-
-    print "psdn = ", $rr->psdn, "\n";
-
-Returns the PSDN address.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr. 
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved.  This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1183 Section 3.1
-
-=cut