MAJOR=253
MINOR=1
DEVNAME=vda1
DEVTYPE=partition
ˆ
ƒ ®Áàá
Index of /ALFA_DATA/alfasymlink/root/sys/devices/pci0000:00/0000:00:1e.0/firmware_node/device:2b/subsystem
Index of /ALFA_DATA/alfasymlink/root/sys/devices/pci0000:00/0000:00:1e.0/firmware_node/device:2b/subsystem
0 ˆl–Ým_J µ4Å ‰AãNÜmõ1hßÀ
„e—€_‹ uÐb
&=LV[(ÅÄ ?÷ package URI;
use strict;
use vars qw($VERSION);
$VERSION = "1.60";
use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME $DEFAULT_QUERY_FORM_DELIMITER);
my %implements; # mapping from scheme to implementor class
# Some "official" character classes
use vars qw($reserved $mark $unreserved $uric $scheme_re);
$reserved = q(;/?:@&=+$,[]);
$mark = q(-_.!~*'()); #'; emacs
$unreserved = "A-Za-z0-9\Q$mark\E";
$uric = quotemeta($reserved) . $unreserved . "%";
$scheme_re = '[a-zA-Z][a-zA-Z0-9.+\-]*';
use Carp ();
use URI::Escape ();
use overload ('""' => sub { ${$_[0]} },
'==' => sub { _obj_eq(@_) },
'!=' => sub { !_obj_eq(@_) },
fallback => 1,
);
# Check if two objects are the same object
sub _obj_eq {
return overload::StrVal($_[0]) eq overload::StrVal($_[1]);
}
sub new
{
my($class, $uri, $scheme) = @_;
$uri = defined ($uri) ? "$uri" : ""; # stringify
# Get rid of potential wrapping
$uri =~ s/^<(?:URL:)?(.*)>$/$1/; #
$uri =~ s/^"(.*)"$/$1/;
$uri =~ s/^\s+//;
$uri =~ s/\s+$//;
my $impclass;
if ($uri =~ m/^($scheme_re):/so) {
$scheme = $1;
}
else {
if (($impclass = ref($scheme))) {
$scheme = $scheme->scheme;
}
elsif ($scheme && $scheme =~ m/^($scheme_re)(?::|$)/o) {
$scheme = $1;
}
}
$impclass ||= implementor($scheme) ||
do {
require URI::_foreign;
$impclass = 'URI::_foreign';
};
return $impclass->_init($uri, $scheme);
}
sub new_abs
{
my($class, $uri, $base) = @_;
$uri = $class->new($uri, $base);
$uri->abs($base);
}
sub _init
{
my $class = shift;
my($str, $scheme) = @_;
# find all funny characters and encode the bytes.
$str = $class->_uric_escape($str);
$str = "$scheme:$str" unless $str =~ /^$scheme_re:/o ||
$class->_no_scheme_ok;
my $self = bless \$str, $class;
$self;
}
sub _uric_escape
{
my($class, $str) = @_;
$str =~ s*([^$uric\#])* URI::Escape::escape_char($1) *ego;
utf8::downgrade($str);
return $str;
}
sub implementor
{
my($sch