diff options
| -rw-r--r-- | Echolot/Tools.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 4531dba..4426b86 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.20 2003/02/18 06:57:07 weasel Exp $ +# $Id: Tools.pm,v 1.21 2003/02/28 17:10:57 weasel Exp $ # =pod @@ -339,13 +339,13 @@ sub make_garbage() { }; close (FH) or Echolot::Log::warn("Cannot close $file: $!."); - + $random = unpack("H*", $random); $random = join "\n", grep { $_ ne '' } (split /(.{64})/, $random); - $random = "----- BEGIN GARBAGE -----\n". + $random = "-----BEGIN GARBAGE-----\n". $random."\n". - "----- END GARBAGE -----\n"; - + "-----END GARBAGE-----\n"; + return $random; }; |