Integrate from maint:

[p5sagit/p5-mst-13.2.git] / lib / base / t / fp560.t

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];
    };
 }