You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
491 B
23 lines
491 B
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;
|