diff options
author | Zeus Panchenko <zeus@camb.us> | 2008-06-23 14:19:04 +0000 |
---|---|---|
committer | Zeus Panchenko <zeus@camb.us> | 2008-06-23 14:19:04 +0000 |
commit | bbcd070e6d110b9efbe535c37fc885a69177c219 (patch) | |
tree | 635d4f83fc73135a32e43832ef2c78cb2747ef6b | |
parent | 016828b8098db3e4a102fa60dc3081eb271aa39c (diff) | |
download | renrot-bbcd070e6d110b9efbe535c37fc885a69177c219.tar.gz renrot-bbcd070e6d110b9efbe535c37fc885a69177c219.tar.bz2 |
function piper() variables names changed
git-svn-id: file:///svnroot/renrot/trunk@535 fe2816f4-e837-0410-b10a-f608c9d244a1
-rwxr-xr-x | renrot | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1901,25 +1901,25 @@ sub piper { use FileHandle; use IPC::Open2; - my $pipeObj = shift; # the object to be processed via pipe - my $pipeCmd = shift; # the pipe command + my $pipe_obj = shift; # the object to be processed via pipe + my $pipe_cmd = shift; # the pipe command local (*READ_FROM_FH, *WRITE_TO_FH); # file handlers - unless (open2(\*READ_FROM_FH, \*WRITE_TO_FH, $pipeCmd)) { + unless (open2(\*READ_FROM_FH, \*WRITE_TO_FH, $pipe_cmd)) { errmsg ("Unable to create the pipe.\n"); } binmode WRITE_TO_FH; - print WRITE_TO_FH $pipeObj; + print WRITE_TO_FH $pipe_obj; unless (close(WRITE_TO_FH)) { warnmsg ("WRITE handle wasn't closed!\n"); }; binmode READ_FROM_FH; - my @pipedArr = <READ_FROM_FH>; + my @piped_arr = <READ_FROM_FH>; unless (close(READ_FROM_FH)) { warnmsg ("READ handle wasn't closed!\n"); }; - return join("", @pipedArr); + return join("", @piped_arr); } ######################################################################################## |