File tree Expand file tree Collapse file tree 1 file changed +15
-4
lines changed Expand file tree Collapse file tree 1 file changed +15
-4
lines changed Original file line number Diff line number Diff line change @@ -164,17 +164,28 @@ sub getDeps {
164
164
my $taropt = " v" x $verbose ;
165
165
166
166
unless (-d $unpacked ) {
167
- mkdir $unpacked , 0755;
167
+ mkdir " $unpacked " , 0755;
168
+ mkdir " $unpacked /bin" , 0755;
169
+ mkdir " $unpacked /etc" , 0755;
170
+ mkdir " $unpacked /etc/setup" , 0755;
168
171
169
- foreach my $p ( keys %pkgs ) {
170
- $p = $file {$p };
172
+ # Create package database
173
+ open O, " >$unpacked /etc/setup/installed.db" ;
174
+ print O " INSTALLED.DB 2\n " ;
175
+
176
+ foreach my $pn ( keys %pkgs ) {
177
+ $p = $file {$pn };
171
178
$p =~ s # ^.*/# $packages /# ;
172
179
180
+ print O " $pn $p 0\n " ;
181
+
173
182
print " Unpacking $p ...\n " if $verbose ;
174
- system " tar $taropt -C $unpacked -xjf $p " ;
183
+ system " tar $taropt -C $unpacked -xjvf $p | gzip -c > $unpacked /etc/setup/ $pn .lst.gz " ;
175
184
die " unpacking of $p failed" if $? ;
176
185
}
177
186
187
+ close O;
188
+
178
189
chdir $unpacked ;
179
190
180
191
mkdir " bin" , 0755;
You can’t perform that action at this time.
0 commit comments