FM / file

/usr/share/perl5/URI/file

Name	Size	Mode	Actions
Base.pm	1485	0644	edit dl rm
FAT.pm	497	0644	edit dl rm
Mac.pm	2485	0644	edit dl rm
OS2.pm	561	0644	edit dl rm
QNX.pm	337	0644	edit dl rm
Unix.pm	1022	0644	edit dl rm
Win32.pm	1757	0644	edit dl rm

Edit: /usr/share/perl5/URI/file/Base.pm (1485B)

package URI::file::Base;

use strict;
use warnings;

use URI::Escape ();

our $VERSION = '5.10';

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(@_);
}

cmd: