fix directory uniquification code

master
Joey Hess 2008-08-22 21:52:03 -04:00
parent 577477e1ce
commit 3069c7b36a
1 changed files with 4 additions and 2 deletions

View File

@ -37,11 +37,13 @@ sub import (@) { #{{{
foreach my $key (qw{srcdir destdir repository dumpsetup}) {
next unless exists $config{$key};
my $add="";
while (-e $add.$config{$key}) {
my $dir=IkiWiki::dirname($config{$key})."/";
my $base=IkiWiki::basename($config{$key});
while (-e $dir.$add.$base) {
$add=1 if ! $add;
$add++;
}
$config{$key}=$add.$config{$key};
$config{$key}=$dir.$add.$base;
}
# Set up wrapper