Fix verbose message and link setup.
This commit is contained in:
parent
56441180e4
commit
d6375aefd6
1 changed files with 3 additions and 2 deletions
|
@ -231,9 +231,10 @@ while (my $file = readdir $dh) {
|
|||
|
||||
my(%links) = GetLinksForTicket($ticket);
|
||||
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) {
|
||||
print STDERR "\"$file\": \"$ticket\": Skipped: no tax ticket found.\n";
|
||||
next;
|
||||
|
|
Loading…
Reference in a new issue