Compare commits
2 Commits
5d700a78e9
...
79b47c2223
Author | SHA1 | Date | |
---|---|---|---|
79b47c2223 | |||
47ca04508a |
@ -384,6 +384,9 @@ sub getdependencies {
|
|||||||
$depstring .= $pkgname;
|
$depstring .= $pkgname;
|
||||||
$deps{$pkgname} = $depstring;
|
$deps{$pkgname} = $depstring;
|
||||||
push(@dependencies, $depstring);
|
push(@dependencies, $depstring);
|
||||||
|
} elsif ($installed{$pkgname}) {
|
||||||
|
$depstring = ($checkver) ? "[i] $pkgname" : $pkgname;
|
||||||
|
push(@dependencies, $depstring);
|
||||||
} else {
|
} else {
|
||||||
return 0 if ($pkgparent eq "");
|
return 0 if ($pkgparent eq "");
|
||||||
$missingdeps{$pkgname} = $pkgparent;
|
$missingdeps{$pkgname} = $pkgparent;
|
||||||
|
@ -32,13 +32,28 @@ $prtget .= " --no-std-config --config-set=\"prtdir $prtdir\"" if ($prtdir);
|
|||||||
my @dirlist = glob("*#*.pkg.tar.$compress");
|
my @dirlist = glob("*#*.pkg.tar.$compress");
|
||||||
my @packages; my %isDup;
|
my @packages; my %isDup;
|
||||||
|
|
||||||
|
sub pkg_mtime {
|
||||||
|
my $aName = $a; my $bName = $b;
|
||||||
|
my $aTime; my $bTime;
|
||||||
|
$aName =~ s/#.*//;
|
||||||
|
$bName =~ s/#.*//;
|
||||||
|
if ($aName lt $bName) { return -1; }
|
||||||
|
elsif ($aName gt $bName) { return 1; }
|
||||||
|
else {
|
||||||
|
$aTime = (stat $a)[9];
|
||||||
|
$bTime = (stat $b)[9];
|
||||||
|
}
|
||||||
|
if ($aTime le $bTime) { return -1; }
|
||||||
|
else { return 1; }
|
||||||
|
}
|
||||||
|
|
||||||
if ($#ARGV >= 0) { # single packages
|
if ($#ARGV >= 0) { # single packages
|
||||||
foreach my $name (sort @ARGV) {
|
foreach my $name (sort @ARGV) {
|
||||||
my @hits = glob("$name#*.pkg.tar.$compress");
|
my @hits = glob("$name#*.pkg.tar.$compress");
|
||||||
push(@packages,@hits);
|
push(@packages,@hits);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
@packages = @dirlist;
|
@packages = sort pkg_mtime @dirlist;
|
||||||
%isDup = map { $_ => 0 } @packages;
|
%isDup = map { $_ => 0 } @packages;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -255,6 +270,7 @@ run_script() {
|
|||||||
foreach my $name (@dirlist) {
|
foreach my $name (@dirlist) {
|
||||||
$name =~ s/\#.*//; next if ($seen{$name});
|
$name =~ s/\#.*//; next if ($seen{$name});
|
||||||
$seen{$name} = 1;
|
$seen{$name} = 1;
|
||||||
|
next if (! $path{$name});
|
||||||
if (-f "$path{$name}/README"){
|
if (-f "$path{$name}/README"){
|
||||||
print $fR "##### PKGREADME: $name\n";
|
print $fR "##### PKGREADME: $name\n";
|
||||||
open(my $readme, "$path{$name}/README");
|
open(my $readme, "$path{$name}/README");
|
||||||
|
Loading…
Reference in New Issue
Block a user