/
usr
/
local
/
share
/
perl5
/
URI
/
file
/
/usr/local/share/perl5/URI/file
mkdir
upload
Name
Size
Mode
Actions
Base.pm
1501
0444
edit
dl
rm
FAT.pm
523
0444
edit
dl
rm
Mac.pm
2511
0444
edit
dl
rm
OS2.pm
587
0444
edit
dl
rm
QNX.pm
363
0444
edit
dl
rm
Unix.pm
1048
0444
edit
dl
rm
Win32.pm
1783
0444
edit
dl
rm
Edit:
/usr/local/share/perl5/URI/file/FAT.pm
(523B)
package URI::file::FAT; use strict; use warnings; use parent 'URI::file::Win32'; our $VERSION = '1.71'; $VERSION = eval $VERSION; 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;
Save
cmd:
run