1,4d0
< #
< # Modified for use in MacPerl by Paul Schinder <schinder@pjstoaster.pg.md.us>
< # 4/24/95
< #
61d56
<     $pathname = &macify($pathname);
104,105c99
< #       $tail = substr($pathname,(rindex($pathname,'/') + 1)); # filename
<         $tail = substr($pathname,(rindex($pathname,':') + 1)); # filename
---
>         $tail = substr($pathname,(rindex($pathname,'/') + 1)); # filename
125,126c119
< #   if ($pathname !~ m#/$#) { $pathname .= '/'; }
<     if ($pathname !~ m#:$#) { $pathname .= ':'; }
---
>     if ($pathname !~ m#/$#) { $pathname .= '/'; }
146,147c139
< #   if ($pathname ne '/')
<     if ($pathname ne ':')
---
>     if ($pathname ne '/')
150,151c142
< #       $parent =~ s#/[^/]+/$#/#;
<         $parent =~ s#/[^:]+:$#:#;
---
>         $parent =~ s#/[^/]+/$#/#;
171,173c162
< #       if (-d _) { $file .= '/';  $full .= '/'; }
<         if (-d _) { $file .= ':';  $full .= ':'; }
<  
---
>         if (-d _) { $file .= '/';  $full .= '/'; }
190,197c179
< sub macify {
<     local($macpath) = $_[0] =~ s,/,:,g;
<     if($macpath =~ /^:/) {
< 	return $macpath;
<     } else {
< 	return ":".$macpath;
<     }
< }
---
>