vcs.maemo.org Git - dh-make-perl/blob - dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/URI/file/FAT.pm

   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;