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