diff options
author | Norbert Preining <preining@logic.at> | 2010-02-28 09:36:33 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-02-28 09:36:33 +0000 |
commit | 5589232e99f0fa13868111280c5b64ce9dc25730 (patch) | |
tree | 28f2e6ff422108ac87934aff9c3fc5911963625c /Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm | |
parent | a6f5de6eed80d66fbd23ceabda7edf22b8162236 (diff) |
add a tlperl.straw directory for public inspection
git-svn-id: svn://tug.org/texlive/trunk@17235 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm b/Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm new file mode 100755 index 00000000000..328169bd0bf --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/URI/file/FAT.pm @@ -0,0 +1,23 @@ +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; |