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