Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / liburi-perl / liburi-perl-1.35.dfsg.1 / URI / file / FAT.pm

diff --git a/dev/i386/liburi-perl/liburi-perl-1.35.dfsg.1/URI/file/FAT.pm b/dev/i386/liburi-perl/liburi-perl-1.35.dfsg.1/URI/file/FAT.pm
new file mode 100644 (file)
index 0000000..328169b
--- /dev/null
+++ b/dev/i386/liburi-perl/liburi-perl-1.35.dfsg.1/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;