Mercurial > hg > foxridge-archiver

diff MPIWGStor.pm @ 18:fdf4ceb36db1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed problem with dir names in metacheck new version of metacheck defaults to not change index file new version of archiver uses new version of metacheck
author casties
date Tue, 20 Sep 2005 19:24:57 +0200
parents 8eee361fdec8
children 2890dd75d2f6
line wrap: on
line diff
--- a/MPIWGStor.pm	Wed Aug 31 12:50:00 2005 +0200
+++ b/MPIWGStor.pm	Tue Sep 20 19:24:57 2005 +0200
@@ -140,12 +140,17 @@
 # file name (the last path element) and path
 #
 sub split_file_path {
-    my ($fn) = @_;
+    my ($fn, $nodot) = @_;
 
     if ($fn =~ /^(.*)\/([^\/]+)$/) {
         return ($2, $1);
+    } 
+    # only file name
+    if ($nodot) {
+	return ($fn, '');
+    } else {
+	return ($fn, '.');
     }
-    return ($fn, '.'); # only file name
 }