Testsuite: accept changed output from perl version difference

diff --git a/test/runtest b/test/runtest
index d8c64eabcec68be2721019be573f8843700b4ad2..8f5d393bbd7805848c69c600851859930733b947 100755 (executable)
--- 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 ca7b094e6a301918ff8522860d08bdbf89990148..50be468c24ef251885c1459b5685d726ef2d311a 100644 (file)
--- 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
 >