diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-04-24 14:58:01 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-04-24 14:58:01 +0000 |
| commit | b262791a005380732f079d51f6cff9970df70ee2 (patch) | |
| tree | 59109d40661f400b1ac07f27143d44fd3fb74039 /Echolot | |
| parent | 544856338d731e08a8ae00e694aa8cc2a45d141d (diff) | |
use English if we use INPUT_RECORD_SEPARATOR
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Pinger/CPunk.pm | 2 | ||||
| -rw-r--r-- | Echolot/Tools.pm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm index 09145d2..f07f1e3 100644 --- a/Echolot/Pinger/CPunk.pm +++ b/Echolot/Pinger/CPunk.pm @@ -96,7 +96,7 @@ sub encrypt_to($$$$) { $pid = $GnuPG->encrypt( command_args => $command_args, handles => $handles ); - my ($stdout, $stderr, $status) = readwrite_gpg('', $stdin_fh, $stdout_fh, $stderr_fh, $status_fh); + ($stdout, $stderr, $status) = readwrite_gpg('', $stdin_fh, $stdout_fh, $stderr_fh, $status_fh); waitpid $pid, 0; #($stderr eq '') or diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 332f2e8..bc88219 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -21,6 +21,7 @@ use Digest::MD5 qw{}; use IO::Handle; use GnuPG::Interface; use Echolot::Log; +use English; sub hash($) { my ($data) = @_; |