aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZeus Panchenko <zeus@camb.us>2008-06-23 14:19:04 +0000
committerZeus Panchenko <zeus@camb.us>2008-06-23 14:19:04 +0000
commitbbcd070e6d110b9efbe535c37fc885a69177c219 (patch)
tree635d4f83fc73135a32e43832ef2c78cb2747ef6b
parent016828b8098db3e4a102fa60dc3081eb271aa39c (diff)
downloadrenrot-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-xrenrot12
1 files changed, 6 insertions, 6 deletions
diff --git a/renrot b/renrot
index 8d783b0..e93bf3b 100755
--- a/renrot
+++ b/renrot
@@ -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);
}
########################################################################################

Return to:

Send suggestions and report system problems to the System administrator.