Additional verbosity.

This commit is contained in:
Bradley M. Kuhn 2020-07-21 13:50:27 -07:00
parent ca31ce7c8f
commit 880da9360c

View file

@ -50,6 +50,7 @@ sub GetLinksForTicket($) {
my %linked; my %linked;
open(my $rtLinksFH, "-|", "$RT_CMD", "show", $ticketSpec . '/links'); open(my $rtLinksFH, "-|", "$RT_CMD", "show", $ticketSpec . '/links');
my $type = 'NONE'; my $type = 'NONE';
print STDERR "rt-helper: GetLinksForTicket: starting\n" if ($VERBOSE > 9);
while (my $linksLine = <$rtLinksFH>) { while (my $linksLine = <$rtLinksFH>) {
print STDERR "rt-helper: GetLinksForTicket: processing line: $linksLine\n" if ($VERBOSE > 9); print STDERR "rt-helper: GetLinksForTicket: processing line: $linksLine\n" if ($VERBOSE > 9);
if ($linksLine =~ m%^([^:\s]+)\s*:%) { if ($linksLine =~ m%^([^:\s]+)\s*:%) {