28
!
Bai~j"Tp/F u
Index of /FSS-BCZ/root/sys/dev/char/29:0/device/subsystem/devices/0000:00:06.0/virtio4
Index of /FSS-BCZ/root/sys/dev/char/29:0/device/subsystem/devices/0000:00:06.0/virtio4
/ l=J74\2Ҙo
}ǟ_ ub
&=LV[( % package URI::file;
use strict;
use warnings;
use parent 'URI::_generic';
our $VERSION = '5.29';
use URI::Escape qw(uri_unescape);
our $DEFAULT_AUTHORITY = "";
# Map from $^O values to implementation classes. The Unix
# class is the default.
our %OS_CLASS = (
os2 => "OS2",
mac => "Mac",
MacOS => "Mac",
MSWin32 => "Win32",
win32 => "Win32",
msdos => "FAT",
dos => "FAT",
qnx => "QNX",
);
sub os_class
{
my($OS) = shift || $^O;
my $class = "URI::file::" . ($OS_CLASS{$OS} || "Unix");
no strict 'refs';
unless (%{"$class\::"}) {
eval "require $class";
die $@ if $@;
}
$class;
}
sub host { uri_unescape(shift->authority(@_)) }
sub new
{
my($class, $path, $os) = @_;
os_class($os)->new($path);
}
sub new_abs
{
my $class = shift;
my $file = $class->new(@_);
return $file->abs($class->cwd) unless $$file =~ /^file:/;
$file;
}
sub cwd
{
my $class = shift;
require Cwd;
my $cwd = Cwd::cwd();
$cwd = VMS::Filespec::unixpath($cwd) if $^O eq 'VMS';
$cwd = $class->new($cwd);
$cwd .= "/" unless substr($cwd, -1, 1) eq "/";
$cwd;
}
sub canonical {
my $self = shift;
my $other = $self->SUPER::canonical;
my $scheme = $other->scheme;
my $auth = $other->authority;
return $other if !defined($scheme) && !defined($auth); # relative
if (!defined($auth) ||
$auth eq "" ||
lc($auth) eq "localhost" ||
(defined($DEFAULT_AUTHORITY) && lc($auth) eq lc($DEFAULT_AUTHORITY))
)
{
# avoid