diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-16 10:20:10 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-16 10:20:10 +0000 |
| commit | fd5b8e816c340acf254dbe7281af45e887b3cc35 (patch) | |
| tree | 447f80a745b6b0c8805efeab78db642ed285b860 | |
| parent | 31e84a74c0765a9565c437eae8a39be3e403d945 (diff) | |
Want an integer number of random bytes
| -rw-r--r-- | Echolot/Tools.pm | 4 |
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; |