FM / file

/usr/share/perl5/URI/file

Name	Size	Mode	Actions
Base.pm	1501	0644	edit dl rm
FAT.pm	523	0644	edit dl rm
Mac.pm	2511	0644	edit dl rm
OS2.pm	587	0644	edit dl rm
QNX.pm	363	0644	edit dl rm
Unix.pm	1048	0644	edit dl rm
Win32.pm	1783	0644	edit dl rm

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

package URI::file::Base;

use strict;
use warnings;

use URI::Escape qw();

our $VERSION = '1.73';
$VERSION = eval $VERSION;

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: