next if /^#/;
my ($repo,$command) = split /\t/,$_,2;
$repo =~ s/^\~/$home/;
+ $command =~ s/^\~/$home/ if defined $command;
$$repos{$repo} = $command;
}
}
while (my ($repo,$run_after) = each(%repos)) {
if (-e "$repo/.svn") {
+ print "Checking [$repo]\n";
system('svn',
$command,
$options{quiet}?'-q':(),