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);
|
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;
|
||||||
|
|
Loading…
Reference in a new issue