1 files changed, 0 insertions, 133 deletions
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