From 2566035fb6e86813da28743a0f6d784e84451bd2 Mon Sep 17 00:00:00 2001
From: Jeremy Harris <jgh146exb@wizmail.org>
Date: Fri, 20 Oct 2017 17:45:21 +0100
Subject: [PATCH] Testsuite: accept changed output from perl version difference

---
 test/runtest     | 3 ++-
 test/stdout/3000 | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/runtest b/test/runtest
index d8c64eabc..8f5d393bb 100755
--- a/test/runtest
+++ b/test/runtest
@@ -1559,7 +1559,8 @@ $munges =
     'peer_terminated_conn' =>	# actual error differs FreedBSD vs. Linux
     { 'stderr' => 's/^(  SMTP\()Connection reset by peer(\)<<)$/$1closed$2/' },
 
-    'perl_variants'
+    'perl_variants' =>		# result of hash-in-scalar-context changed from bucket-fill to keycount
+    { 'stdout' => 's%^> X/X$%> X%' },
   };
 
 
diff --git a/test/stdout/3000 b/test/stdout/3000
index ca7b094e6..50be468c2 100644
--- a/test/stdout/3000
+++ b/test/stdout/3000
@@ -17,7 +17,7 @@
 > 42
 > 30
 > 3
-> X/X
+> X
 > 
 > Tue, 2 Mar 1999 09:44:33 +0000 // Changed locale // Tue, 2 Mar 1999 09:44:33 +0000
 > 
-- 
2.25.1