--- foxridge-archiver/MPIWGStor.pm	2005/05/26 14:31:28	1.3
+++ foxridge-archiver/MPIWGStor.pm	2005/08/23 15:01:08	1.4
@@ -12,7 +12,7 @@ use vars qw(@ISA @EXPORT $VERSION
 	    $file_perm);
 use Exporter;
 
-$VERSION = 0.6; #  ROC 26.5.2005
+$VERSION = 0.6.1; #  ROC 8.8.2005
 
 @ISA = qw(Exporter);
 
@@ -145,7 +145,7 @@ sub split_file_path {
     if ($fn =~ /^(.*)\/([^\/]+)$/) {
         return ($2, $1);
     }
-    return $fn;
+    return ($fn, '.'); # only file name
 }