X-Git-Url: http://git.maemo.org/git/?p=maemian;a=blobdiff_plain;f=lib%2FMaemian%2FSchedule.pm;h=e11328aa3ab80d47558dbd1fd463172637eb55ae;hp=48abecbedb0af87435ce6f4fae81015d965cb905;hb=19fdce4b743853cee27edb892096cf64295c2874;hpb=84b6a5bd29b0b1e960c4b6012eea3dfff93180f2

diff --git a/lib/Maemian/Schedule.pm b/lib/Maemian/Schedule.pm
index 48abecb..e11328a 100644
--- a/lib/Maemian/Schedule.pm
+++ b/lib/Maemian/Schedule.pm
@@ -68,12 +68,16 @@ sub add_file {
     return 1;
 }
 
+# add_deb takes the name of a binary deb and the letter "b" as args.
 sub add_deb {
-    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);
 }
 
 sub add_dsc {