From 9d85e46af45bc9bbe55705195a814e5497ecd4ee Mon Sep 17 00:00:00 2001
From: "Heiko Schlittermann (HS12)" <hs@schlittermann.de>
Date: Thu, 9 Apr 2015 21:49:47 +0200
Subject: [PATCH] Stabilize test 3000 - Perl hash

A Perl hash in scalar context returns a true value. Nothing else.
Currently it's information about the internal storage, something like
n/m, used buckets/allocated buckets. But this seems to change from run
to run between 1/8 and 2/8.
---
 test/scripts/3000-Perl/3000 | 2 +-
 test/stdout/3000            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000
index fc5002012..30ac29eb3 100644
--- a/test/scripts/3000-Perl/3000
+++ b/test/scripts/3000-Perl/3000
@@ -16,7 +16,7 @@ ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}
 ${perl{return_scalar}}
 ${perl{return_list}}
 ${perl{return_variable_vector}}
-${perl{return_hash}}
+${sg{${perl{return_hash}}}{\\d+}{X}}
 
 $tod_full // ${perl{change_locale}} // $tod_full
 ****
diff --git a/test/stdout/3000 b/test/stdout/3000
index 4ee74c877..ad21103b3 100644
--- a/test/stdout/3000
+++ b/test/stdout/3000
@@ -17,7 +17,7 @@
 > 42
 > 30
 > 3
-> 2/8
+> X/X
 > 
 > Tue, 2 Mar 1999 09:44:33 +0000 // Changed locale // Tue, 2 Mar 1999 09:44:33 +0000
 > 
-- 
2.30.2