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) { |
