-print DEBUG Dumper($dscdata, $dscfh);
- my $dscp = Dpkg::Control::Hash->new(allow_pgp=>1);
- $dscp->parse($dscfh, 'dsc') or die "parsing of $dscurl failed\n";
-# my $dscf = $dscp->{'fields'};
-my $dscf=$dscp;
-print DEBUG Dumper($dscp,$dscf);
- my $fmt = $dscf->{Format};
+#print DEBUG Dumper($dscdata, $dscfh);
+ $dsc = Dpkg::Control::Hash->new(allow_pgp=>1);
+ $dsc->parse($dscfh, 'dsc') or die "parsing of $dscurl failed\n";
+#print DEBUG Dumper($dsc);
+ my $fmt = $dsc->{Format};