summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/URI/file/FAT.pm
diff options
context:
space:
mode:
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.pm23
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;