Fix verbose message and link setup.

This commit is contained in:
Bradley M. Kuhn 2018-08-07 10:29:25 -07:00
parent 56441180e4
commit d6375aefd6

View file

@ -231,9 +231,10 @@ while (my $file = readdir $dh) {
my(%links) = GetLinksForTicket($ticket); my(%links) = GetLinksForTicket($ticket);
if ($VERBOSE > 5) { if ($VERBOSE > 5) {
print STDERR "\"$file\": \"$ticket\": Found the following links: " , join( ", ", @links), "\n"; use Data::Dumper;
print STDERR "\"$file\": \"$ticket\": Found the following links: " , Data::Dumper->Dump([\%links]), "\n";
} }
my $taxTicket = FindTaxTicketFromList(@{$links{DependsOn}); my $taxTicket = FindTaxTicketFromList(@{$links{DependsOn}});
if (not defined $taxTicket) { if (not defined $taxTicket) {
print STDERR "\"$file\": \"$ticket\": Skipped: no tax ticket found.\n"; print STDERR "\"$file\": \"$ticket\": Skipped: no tax ticket found.\n";
next; next;