Na}{

File Content: `FAT.pm`

package URI::file::FAT;

require URI::file::Win32;
@ISA=qw(URI::file::Win32);

sub fix_path
{
    shift; # class
    for (@_) {
	# turn it into 8.3 names
	my @p = map uc, split(/\./, $_, -1);
	return if @p > 2;     # more than 1 dot is not allowed
	@p = ("") unless @p;  # split bug? (returns nothing when splitting "")
	$_ = substr($p[0], 0, 8);
        if (@p > 1) {
	    my $ext = substr($p[1], 0, 3);
	    $_ .= ".$ext" if length $ext;
	}
    }
    1;  # ok
}

1;

Name	Size	Permission
Base.pm	1436 bytes	0644
FAT.pm	468 bytes	0644
Mac.pm	2469 bytes	0644
OS2.pm	532 bytes	0644
QNX.pm	320 bytes	0644
Unix.pm	1004 bytes	0644
Win32.pm	1739 bytes	0644

File Content: FAT.pm

File Content: `FAT.pm`