[catagits/Gitalist.git] / local-lib5 / lib / perl5 / URI / file / 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;
Commit	Line	Data
3fea05b9	1	package URI::file::FAT;
	2
	3	require URI::file::Win32;
	4	@ISA=qw(URI::file::Win32);
	5
	6	sub fix_path
	7	{
	8	shift; # class
	9	for (@_) {
	10	# turn it into 8.3 names
	11	my @p = map uc, split(/\./, $_, -1);
	12	return if @p > 2; # more than 1 dot is not allowed
	13	@p = ("") unless @p; # split bug? (returns nothing when splitting "")
	14	$_ = substr($p[0], 0, 8);
	15	if (@p > 1) {
	16	my $ext = substr($p[1], 0, 3);
	17	$_ .= ".$ext" if length $ext;
	18	}
	19	}
	20	1; # ok
	21	}
	22
	23	1;