--- foxridge-archiver/archiver.pl	2004/06/17 15:58:42	1.1
+++ foxridge-archiver/archiver.pl	2004/07/08 17:27:59	1.2
@@ -16,7 +16,7 @@ $|=1;
 #
 
 # program version
-my $version = "0.5 (15.1.2004)";
+my $version = "0.5.1 (8.7.2004)";
 
 # rewrite XML file (necessary for archive date!)
 my $fix_xml = 1;
@@ -64,8 +64,10 @@ if ($#ARGV < 0) {
     exit 1;
 }
 my $docdir = $ARGV[0];
+# strip double slashes
+$docdir =~ s/\/\//\//;
 # strip trailing slashes
-$docdir =~ s/\/$//;
+$docdir =~ s/\/+$//;
 if (! -d $docdir) {
     print "ABORT: document directory \'$docdir\' doesn't exist!\n";
     exit 1;