diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-31 08:17:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-31 08:17:43 +0000 |
| commit | 036549e33639d565b91c920a89baa6a8d1be689e (patch) | |
| tree | 7c1a649807b1fd4a438e55e679301b02f3d6ccee /lib/base | |
| parent | 0468c23b4a060381f0e268482c29717cdf2ecfd2 (diff) | |
| download | perl-036549e33639d565b91c920a89baa6a8d1be689e.tar.gz | |
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..)
Diffstat (limited to 'lib/base')
| -rw-r--r-- | lib/base/t/fp560.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/base/t/fp560.t b/lib/base/t/fp560.t index 93bca34e2e..a068090dcc 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]; }; } |