Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_ed63005f075fba981a06b53a123c4595

Text File | 2000-03-15 | 491b | 24 lines

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;