diff MPIWGStor.pm @ 16:8eee361fdec8

weiter arbeit am digifiles modus
author casties
date Tue, 23 Aug 2005 17:01:08 +0200
parents 620aad237f57
children fdf4ceb36db1
line wrap: on
line diff
--- a/MPIWGStor.pm	Mon Jun 20 17:21:30 2005 +0200
+++ b/MPIWGStor.pm	Tue Aug 23 17:01:08 2005 +0200
@@ -12,7 +12,7 @@
 	    $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 @@
     if ($fn =~ /^(.*)\/([^\/]+)$/) {
         return ($2, $1);
     }
-    return $fn;
+    return ($fn, '.'); # only file name
 }