diff options
Diffstat (limited to 'lib/URI/file/FAT.pm')
| -rw-r--r-- | lib/URI/file/FAT.pm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lib/URI/file/FAT.pm b/lib/URI/file/FAT.pm deleted file mode 100644 index 328169b..0000000 --- a/lib/URI/file/FAT.pm +++ /dev/null @@ -1,23 +0,0 @@ -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; |
