Added some code to peer into a data structure in Maemian/Schedule.pm. Also added the

[maemian] / lib / Maemian / Schedule.pm

diff --git a/lib/Maemian/Schedule.pm b/lib/Maemian/Schedule.pm
index 48abecb..e11328a 100644 (file)
--- 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 {