From e11ceab5ddaf71250e217ae6bf76772132f50646 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 25 Jul 2018 09:49:34 -0700
Subject: [PATCH] Do not be so strict on this regex.

---
 scripts/rt-bulk-prep-pay.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/rt-bulk-prep-pay.plx b/scripts/rt-bulk-prep-pay.plx
index 84eeb88..fcb77b6 100755
--- a/scripts/rt-bulk-prep-pay.plx
+++ b/scripts/rt-bulk-prep-pay.plx
@@ -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;