From ee82738f0ab7b4d57ab7ad578a8f75e49a7cc855 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 23 Sep 2020 17:07:16 -0700
Subject: [PATCH] Header line regex was not quite right.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Note that the header line can look like this:

 --  ------ ---

… and this regex should match it.
---
 bean-query-goofy-daemon.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx
index 08c8b79..a101ec1 100755
--- a/bean-query-goofy-daemon.plx
+++ b/bean-query-goofy-daemon.plx
@@ -237,7 +237,7 @@ while (1) {
       unless ($seenSeperator) {
         if ($line =~ /^\s*$/) {
           $seenSeperator = 1;
-        } elsif ($currentFormat eq 'text' and $line =~ /^\s*\-+\s*$/) {
+        } elsif ($currentFormat eq 'text' and $line =~ /^\s*[\-\s]+\s*$/) {
           $seenSeperator = 1;
         }
         $prevLine = $line;