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 (file)
--- 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];
    };
 }