# my $index = 1;
#Generate dependence XML file.
- info("Generating dependence XML file...");
+ debug("Generating dependence XML file...");
my $pkgdepsxml = "$out/$dist\_$arch\_pkgdepends.xml";
open(my $f, '>', $pkgdepsxml) or die "$pkgdepsxml - $!";
print $f "<builddepinfo>\n";
my_system("cd $out; tar -zcf $dist\_$arch\_pkgdepends.tar.gz $dist\_$arch\_pkgdepends.xml");
my_system("rm -rf $pkgdepsxml");
}
- info("The dependence XML file has been generated in $out");
+ #info("The dependence XML file has been generated in $out");
#if there is no reverse dependence relation, skip!
if (0 == scalar (keys %pkgrdeps))
}
#Generate reverse dependence XML file.
- info("Generating reverse dependence XML file...");
+ debug("Generating reverse dependence XML file...");
my $revpkgdepsxml = "$out/$dist\_$arch\_revpkgdepends.xml";
open(my $rf, '>', $revpkgdepsxml) or die "$revpkgdepsxml - $!";
print $rf "<builddepinfo>\n";
my_system("rm -rf $revpkgdepsxml");
}
- info("The reverse dependence XML file has been generated in $out");
+ info("The dependence XML file has been generated in $out");
}
($_, $gbs_version) = my_system("gbs -V");
$gbs_version =~ s!gbs !!;
+ info("Starting generate depends ... ");
+ #need to clear the below variable firstly.
+ @running = ();
+ @done = ();
+ @skipped = ();
+
if ($style eq 'git') {
File::Find::find({wanted => \&git_wanted}, $package_path );
- if (@pre_packs > 1 && $commit ne "HEAD"){
- error("--commit option can't be specified with multiple packages");
- }
if (@pre_packs == 0) {
error("No source package found at $package_path");
}
generate_depends_xmlfile();
}
+
#use pre-export source to analyse
sub fill_packs_from_dir {
my $name = shift;
while ((threads->list() > 0)) {
sleep(1);
}
+
update_repo();
build_report();