| 162 |
} |
} |
| 163 |
next unless -d $adir; |
next unless -d $adir; |
| 164 |
opendir DIR, $adir or next; |
opendir DIR, $adir or next; |
| 165 |
process_rpm("$adir$_", $ver, $baserepo->{$dir}) foreach readdir DIR; |
my @txt = grep { /\.rpm$/ && -f "$adir/$_" } readdir DIR; |
| 166 |
closedir DIR; |
closedir DIR; |
| 167 |
|
if (scalar(@txt)) { |
| 168 |
|
opendir DIR, $adir or next; |
| 169 |
|
process_rpm("$adir$_", $ver, $baserepo->{$dir}) foreach readdir DIR; |
| 170 |
|
closedir DIR; |
| 171 |
|
} elsif ($baserepo->{$dir} eq 'epel') { |
| 172 |
|
# EPEL 7 uses a structure with subfolders of first letter of package |
| 173 |
|
find( { wanted => sub { process_rpm($_, $ver, $baserepo->{$dir}) if ($_ =~ m/\.rpm$/);}, no_chdir => 1, follow_fast => 1 }, $adir ); |
| 174 |
|
} |
| 175 |
last unless $dir =~ m{~A}; |
last unless $dir =~ m{~A}; |
| 176 |
} |
} |
| 177 |
} |
} |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
