Mercurial > pub > site.implab
comparison dox_task.pl @ 16:e69c970c3ddd default tip
sync
author | sergey |
---|---|
date | Tue, 20 May 2014 01:28:48 +0400 |
parents | 573a92d54f07 |
children |
comparison
equal
deleted
inserted
replaced
15:573a92d54f07 | 16:e69c970c3ddd |
---|---|
31 | 31 |
32 foreach my $desc (@repos) { | 32 foreach my $desc (@repos) { |
33 my $name = pop (@{[split /\//, $desc->{src}]}); | 33 my $name = pop (@{[split /\//, $desc->{src}]}); |
34 print "processing: $name\n"; | 34 print "processing: $name\n"; |
35 my $dir = File::Spec->catdir($base,$name); | 35 my $dir = File::Spec->catdir($base,$name); |
36 my $update = 1; | 36 my $update = 0; |
37 if (-d $dir) { | 37 if (-d $dir) { |
38 | 38 |
39 my $repo = HG->new($dir,\%config::hgSettings); | 39 my $repo = HG->new($dir,\%config::hgSettings); |
40 my $income = $repo->Income(); | 40 my $income = $repo->Income(); |
41 if (@$income) { | 41 if (@$income) { |