From 4afbaa319c6f11b8bc3910f8b5c269861f4e7611 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Oct 1998 06:44:19 +0000
Subject: [PATCH] 1<<$randbits is not good for randbits=48.

p4raw-id: //depot/cfgperl@2017
---
 t/op/rand.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
-- 
2.7.4