Mercurial > hg > foxridge-archiver

changeset 26:24d9dd63ae93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed handling of "." in directories
author casties
date Wed, 07 Dec 2005 18:31:04 +0100
parents 8b9d91963de7
children 2890dd75d2f6
files archivecheck.pl
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/archivecheck.pl	Wed Oct 05 15:35:12 2005 +0200
+++ b/archivecheck.pl	Wed Dec 07 18:31:04 2005 +0100
@@ -16,7 +16,7 @@
 #
 
 # program version
-my $version = "0.4.1 (15.2.2005)";
+my $version = "0.4.2 (7.12.2005 ROC)";
 
 # read command line parameters
 my $args = parseargs;
@@ -29,8 +29,6 @@
 
 # archive name (archive-path element, usually == $docdir)
 my $archname;
-# archive storage date
-my $archdate;
 
 
 #######################################################
@@ -126,7 +124,10 @@
 	my $name = sstrip($fn->findvalue('child::name'));
 	my $path = sstrip($fn->findvalue('child::path'));
 	logger("DEBUG", "DIR: ($path)$name");
-	my $f = ($path) ? "$path/$name" : "$name";
+	my $f = "$name";
+	if (($path)&&($path ne '.')) {
+	    $f = "$path/$name";
+	}
 	$files{$f} = [$name];
     }