if ($config_data->{structure} == PKGPOOL) {
my $dir = "$target/".pkg_pool_directory( $pkg_data );
- if (!$force && -d $dir && -f "$dir/log") {
+ if (!$force && -f "$dir/log") {
(utime(undef,undef,"$dir/log") == 1)
or do_warning( "touch of $dir/log failed" );
return 0;
}
}
$cache{$debname} ||= qx/dpkg-deb --info "$debname" control/;
+ unless ( $cache{$debname} ) {
+ do_warning( "extracting control information of file $debname failed" );
+ return;
+ }
my $control = $cache{$debname};
unless ( $raw_data = $parser->parse_mem( $control,
return unless $pkg_data;
if (exists $bin_packages{$pkg_data->{bin_name}}{$pkg_data->{bin_version}}{$pkg_data->{bin_arch}}) {
- do_warning( "duplicated package $pkg_data->{bin_name}, version {$pkg_data->{bin_version}{$pkg_data->{bin_arch}}" );
+ do_warning( "duplicated package $pkg_data->{bin_name}, version $pkg_data->{bin_version}, arch $pkg_data->{bin_arch}" );
return;
} else {
$bin_packages{$pkg_data->{bin_name}}{$pkg_data->{bin_version}}{$pkg_data->{bin_arch}} = $pkg_data;