|
Lines 34-41
Link Here
|
| 34 |
|
34 |
|
| 35 |
foreach $ebuild_file (@ebuild_files) |
35 |
foreach $ebuild_file (@ebuild_files) |
| 36 |
{ |
36 |
{ |
| 37 |
open(CONTENTS, '/var/db/pkg/' . $ebuild_file . '/CONTENTS') or |
37 |
my $contents_file = '/var/db/pkg/' . $ebuild_file . '/CONTENTS'; |
| 38 |
fatal_error('couldn\'t open /var/db/pkg/' . $ebuild_file . '/CONTENTS: ' . $!); |
38 |
if (-e $contents_file and -z $contents_file){ |
|
|
39 |
print "skipping $contents_file - zero length\n"; |
| 40 |
next; |
| 41 |
} |
| 42 |
open(CONTENTS, $contents_file) or |
| 43 |
fatal_error("couldn't open $contents_file: $!"); |
| 39 |
@contents = <CONTENTS>; |
44 |
@contents = <CONTENTS>; |
| 40 |
close(CONTENTS); |
45 |
close(CONTENTS); |
| 41 |
|
46 |
|
