--- foxridge-archiver/metacheck.pl 2004/06/17 15:58:42 1.1 +++ foxridge-archiver/metacheck.pl 2004/07/08 17:30:05 1.3 @@ -14,7 +14,7 @@ $|=1; # # program version -my $version = "0.5.2 (7.1.2004)"; +my $version = "0.5.3 (8.7.2004)"; # read command line parameters my $args = MPIWGStor::parseargs; @@ -45,6 +45,8 @@ if (! $docdir) { logger("ABORT", "no document directory given!"); exit 1; } +# strip double slashes +$docdir =~ s/\/\//\//; # strip trailing slashes $docdir =~ s/\/$//; if (! -d $docdir) {