140 @packagelistopts = ("-packagelist", $packagelist) if ($packagelist ne ""); |
141 @packagelistopts = ("-packagelist", $packagelist) if ($packagelist ne ""); |
141 |
142 |
142 my @verboseopt = (); |
143 my @verboseopt = (); |
143 @verboseopt = "-v" if ($verbose); |
144 @verboseopt = "-v" if ($verbose); |
144 |
145 |
|
146 my @mirroropt = (); |
|
147 @mirroropt = "-mirror" if ($mirror); |
|
148 |
145 my $new_rev = $new; |
149 my $new_rev = $new; |
146 $new_rev = "%REV%" if ($new_rev eq ""); |
150 $new_rev = "%REV%" if ($new_rev eq ""); |
147 |
151 |
148 #TO_DO: Locate clone_all_packages relative to the location of this script. |
152 #TO_DO: Locate clone_all_packages relative to the location of this script. |
149 #TO_DO: Remove references to absolute paths, change to relative paths. |
153 #TO_DO: Remove references to absolute paths, change to relative paths. |
150 do_system($clone_packages,@verboseopt,"-mirror","-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--", |
154 do_system($clone_packages,@verboseopt,@mirroropt,"-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--", |
151 "hg","--config","\"extensions.hgext.extdiff=\"","extdiff","-p",$churn_core,"-o",$churn_output_temp, |
155 "hg","--config","\"extensions.hgext.extdiff=\"","extdiff","-p",$churn_core,"-o",$churn_output_temp, |
152 "-r","$old","-r","$new_rev"); |
156 "-r","$old","-r","$new_rev"); |
153 |
157 |
154 exit(0); |
158 exit(0); |