Mercurial > hg > foxridge-archiver

comparison metacheck.pl @ 1:9143a0c4c678

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fix for // in pathnames
author casties
date Thu, 08 Jul 2004 19:27:59 +0200
parents 30497c6a3eca
children b7259a1c85aa
comparison
equal deleted inserted replaced
0:30497c6a3eca 1:9143a0c4c678
43 my $docdir = $$args{'path'}; 43 my $docdir = $$args{'path'};
44 if (! $docdir) { 44 if (! $docdir) {
45 logger("ABORT", "no document directory given!"); 45 logger("ABORT", "no document directory given!");
46 exit 1; 46 exit 1;
47 } 47 }
48 # strip double slashes
49 $docdir =~ s/\/\//\//;
48 # strip trailing slashes 50 # strip trailing slashes
49 $docdir =~ s/\/$//; 51 $docdir =~ s/\/$//;
50 if (! -d $docdir) { 52 if (! -d $docdir) {
51 logger("ABORT", "document directory \'$docdir\' doesn't exist!"); 53 logger("ABORT", "document directory \'$docdir\' doesn't exist!");
52 exit 1; 54 exit 1;