# HG changeset patch
# User casties
# Date 1133976664 -3600
# Node ID 24d9dd63ae932f768a78bb64b4c46da8e1edaa4c
# Parent  8b9d91963de783e445ecc1ce9fee506aae659746
fixed handling of "." in directories

diff -r 8b9d91963de7 -r 24d9dd63ae93 archivecheck.pl
--- 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];
     }