- my ($self, $type, $file) = @_;
-
- my $info = get_deb_info($file);
- return unless defined $info;
- return $self->add_file($type, $file, %$info);
+ my ($self, $type, $file) = @_;
+
+ my $info = get_deb_info($file);
+# use the following code to peer into the control file of the deb
+# print map { $_, ": ",
+# %$info->{$_} . "\n" } keys %$info;
+ return unless defined $info;
+ return $self->add_file($type, $file, %$info);