diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/URI/file/FAT.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/URI/file/FAT.pm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/URI/file/FAT.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/URI/file/FAT.pm deleted file mode 100644 index 328169bd0bf..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/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; |