stas 2002/08/21 21:10:45
Modified: src/docs/2.0/api/mod_perl-2.0/Apache SubProcess.pod
Log:
formatting fixes
Revision Changes Path
1.2 +5 -5
modperl-docs/src/docs/2.0/api/mod_perl-2.0/Apache/SubProcess.pod
Index: SubProcess.pod
===================================================================
RCS file:
/home/cvs/modperl-docs/src/docs/2.0/api/mod_perl-2.0/Apache/SubProcess.pod,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- SubProcess.pod 21 Aug 2002 17:23:24 -0000 1.1
+++ SubProcess.pod 22 Aug 2002 04:10:45 -0000 1.2
@@ -5,22 +5,22 @@
=head1 SYNOPSIS
use Apache::SubProcess ();
-
+
use Config;
use constant PERLIO_IS_ENABLED => $Config{useperlio};
-
+
# pass @ARGV / read from the process
$command = "/tmp/argv.pl";
@argv = qw(foo bar);
$out_fh = Apache::SubProcess::spawn_proc_prog($r, $command, [EMAIL
PROTECTED]);
$output = read_data($out_fh);
-
+
# pass environment / read from the process
$command = "/tmp/env.pl";
$r->subprocess_env->set(foo => "bar");
$out_fh = Apache::SubProcess::spawn_proc_prog($r, $command);
$output = read_data($out_fh);
-
+
# write to/read from the process
$command = "/tmp/in_out_err.pl";
($in_fh, $out_fh, $err_fh) =
@@ -28,7 +28,7 @@
print $in_fh "hello\n";
$output = read_data($out_fh);
$error = read_data($err_fh);
-
+
# helper function to work w/ and w/o perlio-enabled Perl
sub read_data {
my($fh) = @_;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
