From fd5b8e816c340acf254dbe7281af45e887b3cc35 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Sun, 16 Feb 2003 10:20:10 +0000
Subject: Want an integer number of random bytes

---
 Echolot/Tools.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index 2094d5c..0202cc3 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -1,7 +1,7 @@
 package Echolot::Tools;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Tools.pm,v 1.16 2003/02/16 10:07:27 weasel Exp $
+# $Id: Tools.pm,v 1.17 2003/02/16 10:20:10 weasel Exp $
 #
 
 =pod
@@ -315,7 +315,7 @@ sub make_garbage() {
 		Echolot::Log::warn("Cannot open $file: $!."),
 		return "";
 	my $random = '';
-	my $want = rand(int(Echolot::Config::get()->{'random_garbage'} / 2));
+	my $want = int(rand(int(Echolot::Config::get()->{'random_garbage'} / 2)));
 	my $i = 0;
 	while ($want > 0) {
 		my $buf;
-- 
cgit v1.2.3