From 3282be229999dc36c197b264d63063a18d136331 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Sun, 11 Nov 2007 06:55:13 +0000
Subject: * Update installation list with required modules * Remove
 unused/doubled provided external perl moduls

---
 lib/URI/file/Unix.pm | 55 ----------------------------------------------------
 1 file changed, 55 deletions(-)
 delete mode 100644 lib/URI/file/Unix.pm

(limited to 'lib/URI/file/Unix.pm')

diff --git a/lib/URI/file/Unix.pm b/lib/URI/file/Unix.pm
deleted file mode 100644
index 5f8aaae..0000000
--- a/lib/URI/file/Unix.pm
+++ /dev/null
@@ -1,55 +0,0 @@
-package URI::file::Unix;
-
-require URI::file::Base;
-@ISA=qw(URI::file::Base);
-
-use strict;
-use URI::Escape qw(uri_unescape);
-
-sub _file_extract_path
-{
-    my($class, $path) = @_;
-
-    # tidy path
-    $path =~ s,//+,/,g;
-    $path =~ s,(/\.)+/,/,g;
-    $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:"
-
-    return $path;
-}
-
-sub _file_is_absolute {
-    my($class, $path) = @_;
-    return $path =~ m,^/,;
-}
-
-sub file
-{
-    my $class = shift;
-    my $uri = shift;
-    my @path;
-
-    my $auth = $uri->authority;
-    if (defined($auth)) {
-	if (lc($auth) ne "localhost" && $auth ne "") {
-	    $auth = uri_unescape($auth);
-	    unless ($class->_file_is_localhost($auth)) {
-		push(@path, "", "", $auth);
-	    }
-	}
-    }
-
-    my @ps = $uri->path_segments;
-    shift @ps if @path;
-    push(@path, @ps);
-
-    for (@path) {
-	# Unix file/directory names are not allowed to contain '\0' or '/'
-	return undef if /\0/;
-	return undef if /\//;  # should we really?
-    }
-
-    return join("/", @path);
-}
-
-1;
-- 
cgit v1.2.3