From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 31 Aug 2003 08:17:43 +0000 (+0000)
Subject: Integrate from maint:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=036549e33639d565b91c920a89baa6a8d1be689e;p=p5sagit%2Fp5-mst-13.2.git

Integrate from maint:
[ 20963]
Muffle the 'Pseudo-hashes are deprecated' warning for maint.
p4raw-link: @20963 on //depot/maint-5.8/perl: ec2adced6cb2f98325cd8d0981ffd77f3e1d551e

p4raw-id: //depot/perl@20964
p4raw-integrated: from //depot/maint-5.8/perl@20961 'copy in'
	lib/base/t/fp560.t (@20962..)
---

diff --git a/lib/base/t/fp560.t b/lib/base/t/fp560.t
index 93bca34..a068090 100644
--- a/lib/base/t/fp560.t
+++ b/lib/base/t/fp560.t
@@ -57,6 +57,11 @@ BEGIN {
            $w++;
            return;
        }
+       if ($_[0] =~ /^Pseudo-hashes are deprecated/ &&
+	   ($] >= 5.008 && $] < 5.009)) {
+	   print "# $_[0]"; # Yes, we know they are deprecated.
+	   return;
+       }
        print $_[0];
    };
 }