Change 20963 by [EMAIL PROTECTED] on 2003/08/31 08:16:04
Muffle the 'Pseudo-hashes are deprecated' warning for maint.
Affected files ...
... //depot/maint-5.8/perl/lib/base/t/fp560.t#2 edit
Differences ...
==== //depot/maint-5.8/perl/lib/base/t/fp560.t#2 (text) ====
Index: perl/lib/base/t/fp560.t
--- perl/lib/base/t/fp560.t#1~20962~ Sun Aug 31 01:12:31 2003
+++ perl/lib/base/t/fp560.t Sun Aug 31 01:16:04 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.
