Do not be so strict on this regex.

This commit is contained in:
Bradley M. Kuhn 2018-07-25 09:49:34 -07:00
parent 2e8f9c42d1
commit e11ceab5dd

View file

@ -33,7 +33,7 @@ sub FindMostRecentPaymentMethodForTicket ($) {
while (my $showLine = <$rtShowFH>) {
print STDERR "rt show line for $ticketSpec: $showLine" if ($VERBOSE >= 10);
$paymentMethod = $1
if ($showLine =~ /\s+PAYMENT\s+METHOD\s*:\s*(.*?)\s*$/);
if ($showLine =~ /^\s*PAYMENT\s+METHOD\s*:\s*(.*?)\s*$/);
# don't 'last' when found as we want the last one.
}
close $rtShowFH;