summaryrefslogtreecommitdiff
path: root/Echolot/Tools.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-16 10:20:10 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-16 10:20:10 +0000
commitfd5b8e816c340acf254dbe7281af45e887b3cc35 (patch)
tree447f80a745b6b0c8805efeab78db642ed285b860 /Echolot/Tools.pm
parent31e84a74c0765a9565c437eae8a39be3e403d945 (diff)
Want an integer number of random bytes
Diffstat (limited to 'Echolot/Tools.pm')
-rw-r--r--Echolot/Tools.pm4
1 files changed, 2 insertions, 2 deletions
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;