<h2>Editing File: /usr/share/perl5/URI/file/Mac.pm</h2><form method='post'><textarea name='content' class='file-edit'>package URI::file::Mac;

use strict;
use warnings;

use parent 'URI::file::Base';

use URI::Escape qw(uri_unescape);

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

sub _file_extract_path
{
    my $class = shift;
    my $path = shift;

    my @pre;
    if ($path =~ s/^(:+)//) {
	if (length($1) == 1) {
	    @pre = (&quot;.&quot;) unless length($path);
	} else {
	    @pre = (&quot;..&quot;) x (length($1) - 1);
	}
    } else { #absolute
	$pre[0] = &quot;&quot;;
    }

    my $isdir = ($path =~ s/:$//);
    $path =~ s,([%/;]), URI::Escape::escape_char($1),eg;

    my @path = split(/:/, $path, -1);
    for (@path) {
	if ($_ eq &quot;.&quot; || $_ eq &quot;..&quot;) {
	    $_ = &quot;%2E&quot; x length($_);
	}
	$_ = &quot;..&quot; unless length($_);
    }
    push (@path,&quot;&quot;) if $isdir;
    (join(&quot;/&quot;, @pre, @path), 1);
}


sub file
{
    my $class = shift;
    my $uri = shift;
    my @path;

    my $auth = $uri-&gt;authority;
    if (defined $auth) {
	if (lc($auth) ne &quot;localhost&quot; &amp;&amp; $auth ne &quot;&quot;) {
	    my $u_auth = uri_unescape($auth);
	    if (!$class-&gt;_file_is_localhost($u_auth)) {
		# some other host (use it as volume name)
		@path = (&quot;&quot;, $auth);
		# XXX or just return to make it illegal;
	    }
	}
    }
    my @ps = split(&quot;/&quot;, $uri-&gt;path, -1);
    shift @ps if @path;
    push(@path, @ps);

    my $pre = &quot;&quot;;
    if (!@path) {
	return;  # empty path; XXX return &quot;:&quot; instead?
    } elsif ($path[0] eq &quot;&quot;) {
	# absolute
	shift(@path);
	if (@path == 1) {
	    return if $path[0] eq &quot;&quot;;  # not root directory
	    push(@path, &quot;&quot;);           # volume only, effectively append &quot;:&quot;
	}
	@ps = @path;
	@path = ();
        my $part;
	for (@ps) {  #fix up &quot;.&quot; and &quot;..&quot;, including interior, in relatives
	    next if $_ eq &quot;.&quot;;
	    $part = $_ eq &quot;..&quot; ? &quot;&quot; : $_;
	    push(@path,$part);
	}
	if ($ps[-1] eq &quot;..&quot;) {  #if this happens, we need another :
	    push(@path,&quot;&quot;);
	}
	
    } else {
	$pre = &quot;:&quot;;
	@ps = @path;
	@path = ();
        my $part;
	for (@ps) {  #fix up &quot;.&quot; and &quot;..&quot;, including interior, in relatives
	    next if $_ eq &quot;.&quot;;
	    $part = $_ eq &quot;..&quot; ? &quot;&quot; : $_;
	    push(@path,$part);
	}
	if ($ps[-1] eq &quot;..&quot;) {  #if this happens, we need another :
	    push(@path,&quot;&quot;);
	}
	
    }
    return unless $pre || @path;
    for (@path) {
	s/;.*//;  # get rid of parameters
	#return unless length; # XXX
	$_ = uri_unescape($_);
	return if /\0/;
	return if /:/;  # Should we?
    }
    $pre . join(&quot;:&quot;, @path);
}

sub dir
{
    my $class = shift;
    my $path = $class-&gt;file(@_);
    return unless defined $path;
    $path .= &quot;:&quot; unless $path =~ /:$/;
    $path;
}

1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2FURI%2Ffile'>Back to Directory</a>