From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Oct 1998 06:44:19 +0000 (+0000)
Subject: 1<<$randbits is not good for randbits=48.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4afbaa319c6f11b8bc3910f8b5c269861f4e7611;p=p5sagit%2Fp5-mst-13.2.git

1<<$randbits is not good for randbits=48.

p4raw-id: //depot/cfgperl@2017
---

diff --git a/t/op/rand.t b/t/op/rand.t
index c779f9d..a68559f 100755
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -74,7 +74,7 @@ sub bits ($) {
     # reason that the diagnostic message might get the
     # wrong value is that Config.pm is incorrect.)
     #
-    if ($max <= 0 or $max >= (1 << $randbits)) {	# Just in case...
+    if ($max <= 0 or $max >= (2 ** $randbits)) {# Just in case...
 	print "not ok 1\n";
 	print "# This perl was compiled with randbits=$randbits\n";
 	print "# which is _way_ off. Or maybe your system rand is broken,\n";