|
@ -134,6 +134,8 @@ $/ = "\n"; |
|
|
my @info; |
|
|
my @info; |
|
|
foreach my $rp (@required_packages) { |
|
|
foreach my $rp (@required_packages) { |
|
|
$rp = (split(/_/,$rp))[0]; |
|
|
$rp = (split(/_/,$rp))[0]; |
|
|
|
|
|
# Get rid of the escape from the previous invocation. |
|
|
|
|
|
$rp =~ s/\\//g if $rp =~ /\\+/g; |
|
|
|
|
|
|
|
|
# Figure out info/* .. this covers it for now. |
|
|
# Figure out info/* .. this covers it for now. |
|
|
if (-f "$info/$rp.preinst") { |
|
|
if (-f "$info/$rp.preinst") { |
|
|