Change 20964 by [EMAIL PROTECTED] on 2003/08/31 08:17:43
Integrate from maint:
[ 20963]
Muffle the 'Pseudo-hashes are deprecated' warning for maint.
Affected files ...
... //depot/perl/lib/base/t/fp560.t#2 integrate
Differences ...
==== //depot/perl/lib/base/t/fp560.t#2 (text) ====
Index: perl/lib/base/t/fp560.t
--- perl/lib/base/t/fp560.t#1~20960~ Sun Aug 31 01:07:43 2003
+++ perl/lib/base/t/fp560.t Sun Aug 31 01:17:43 2003
@@ -57,6 +57,11 @@
$w++;
return;
}
+ if ($_[0] =~ /^Pseudo-hashes are deprecated/ &&
+ ($] >= 5.008 && $] < 5.009)) {
+ print "# $_[0]"; # Yes, we know they are deprecated.
+ return;
+ }
print $_[0];
};
}
End of Patch.
