1 files changed, 0 insertions, 82 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/file/Base.pm b/Master/tlpkg/tlperl/lib/URI/file/Base.pm
deleted file mode 100644
index bba1c9dbf6a..00000000000
--- a/Master/tlpkg/tlperl/lib/URI/file/Base.pm
+++ /dev/null
@@ -1,82 +0,0 @@
-package URI::file::Base;
-
-use strict;
-use warnings;
-
-use URI::Escape qw();
-
-sub new
-{
-    my $class = shift;
-    my $path  = shift;
-    $path = "" unless defined $path;
-
-    my($auth, $escaped_auth, $escaped_path);
-
-    ($auth, $escaped_auth) = $class->_file_extract_authority($path);
-    ($path, $escaped_path) = $class->_file_extract_path($path);
-
-    if (defined $auth) {
-	$auth =~ s,%,%25,g unless $escaped_auth;
-	$auth =~ s,([/?\#]), URI::Escape::escape_char($1),eg;
-	$auth = "//$auth";
-	if (defined $path) {
-	    $path = "/$path" unless substr($path, 0, 1) eq "/";
-	} else {
-	    $path = "";
-	}
-    } else {
-	return undef unless defined $path;
-	$auth = "";
-    }
-
-    $path =~ s,([%;?]), URI::Escape::escape_char($1),eg unless $escaped_path;
-    $path =~ s/\#/%23/g;
-
-    my $uri = $auth . $path;
-    $uri = "file:$uri" if substr($uri, 0, 1) eq "/";
-
-    URI->new($uri, "file");
-}
-
-sub _file_extract_authority
-{
-    my($class, $path) = @_;
-    return undef unless $class->_file_is_absolute($path);
-    return $URI::file::DEFAULT_AUTHORITY;
-}
-
-sub _file_extract_path
-{
-    return undef;
-}
-
-sub _file_is_absolute
-{
-    return 0;
-}
-
-sub _file_is_localhost
-{
-    shift; # class
-    my $host = lc(shift);
-    return 1 if $host eq "localhost";
-    eval {
-	require Net::Domain;
-	lc(Net::Domain::hostfqdn()) eq $host ||
-	lc(Net::Domain::hostname()) eq $host;
-    };
-}
-
-sub file
-{
-    undef;
-}
-
-sub dir
-{
-    my $self = shift;
-    $self->file(@_);
-}
-
-1;