stas 2004/07/16 15:38:36
Modified: . Changes
t/api .cvsignore
t/response/TestApache subprocess.pm
todo api_status
xs/maps modperl_functions.map
Log:
The func Apache::SubProcess::spawn_proc_prog is now a method:
$r->spawn_proc_prog
Revision Changes Path
1.420 +3 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.419
retrieving revision 1.420
diff -u -u -r1.419 -r1.420
--- Changes 16 Jul 2004 21:36:28 -0000 1.419
+++ Changes 16 Jul 2004 22:38:35 -0000 1.420
@@ -12,6 +12,9 @@
=item 1.99_15-dev
+The func Apache::SubProcess::spawn_proc_prog is now a method:
+$r->spawn_proc_prog [Stas]
+
Apache::Process methods (pool, pconf and short_name) are now read-only
[Stas]
1.8 +1 -0 modperl-2.0/t/api/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/.cvsignore,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- .cvsignore 15 Jul 2004 21:35:48 -0000 1.7
+++ .cvsignore 16 Jul 2004 22:38:36 -0000 1.8
@@ -4,6 +4,7 @@
lookup_uri.t
lookup_uri2.t
module.t
+process.t
request_rec.t
response.t
request_subclass.t
1.16 +4 -5 modperl-2.0/t/response/TestApache/subprocess.pm
Index: subprocess.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/subprocess.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -u -r1.15 -r1.16
--- subprocess.pm 8 Jul 2004 04:52:06 -0000 1.15
+++ subprocess.pm 16 Jul 2004 22:38:36 -0000 1.16
@@ -51,8 +51,7 @@
# test: passing argv + scalar context
my $script = catfile $target_dir, "argv.pl";
my @argv = qw(foo bar);
- my $out_fh =
- Apache::SubProcess::spawn_proc_prog($r, $perl, [$script, @argv]);
+ my $out_fh = $r->spawn_proc_prog($perl, [$script, @argv]);
my $output = read_data($out_fh);
ok t_cmp([split / /, $output],
[EMAIL PROTECTED],
@@ -65,7 +64,7 @@
my $script = catfile $target_dir, "env.pl";
my $value = "my cool proc";
$r->subprocess_env->set(SubProcess => $value);
- my $out_fh = Apache::SubProcess::spawn_proc_prog($r, $perl, [$script]);
+ my $out_fh = $r->spawn_proc_prog($perl, [$script]);
my $output = read_data($out_fh);
ok t_cmp($output,
$value,
@@ -78,7 +77,7 @@
my $script = catfile $target_dir, "in_out.pl";
my $value = "my cool proc\r\n"; # must have \n for <IN>
my ($in_fh, $out_fh, $err_fh) =
- Apache::SubProcess::spawn_proc_prog($r, $perl, [$script]);
+ $r->spawn_proc_prog($perl, [$script]);
print $in_fh $value;
(my $output = read_data($out_fh)) =~ s/[\r\n]{1,2}/\r\n/;
ok t_cmp($output,
@@ -92,7 +91,7 @@
my $script = catfile $target_dir, "in_err.pl";
my $value = "my stderr\r\n"; # must have \n for <IN>
my ($in_fh, $out_fh, $err_fh) =
- Apache::SubProcess::spawn_proc_prog($r, $perl, [$script]);
+ $r->spawn_proc_prog($perl, [$script]);
print $in_fh $value;
(my $output = read_data($err_fh)) =~ s/[\r\n]{1,2}/\r\n/;
ok t_cmp($output,
1.18 +1 -1 modperl-2.0/todo/api_status
Index: api_status
===================================================================
RCS file: /home/cvs/modperl-2.0/todo/api_status,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -u -r1.17 -r1.18
--- api_status 16 Jul 2004 21:36:28 -0000 1.17
+++ api_status 16 Jul 2004 22:38:36 -0000 1.18
@@ -45,7 +45,7 @@
VP src/docs/2.0/api/Apache/ServerUtil.pod
error_log2stderr
-- src/docs/2.0/api/Apache/Status.pod
--- src/docs/2.0/api/Apache/SubProcess.pod
+VV src/docs/2.0/api/Apache/SubProcess.pod
-- src/docs/2.0/api/Apache/SubRequest.pod
-- src/docs/2.0/api/Apache/URI.pod
-- src/docs/2.0/api/Apache/Util.pod
1.81 +1 -1 modperl-2.0/xs/maps/modperl_functions.map
Index: modperl_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -u -r1.80 -r1.81
--- modperl_functions.map 16 Jul 2004 01:22:04 -0000 1.80
+++ modperl_functions.map 16 Jul 2004 22:38:36 -0000 1.81
@@ -134,7 +134,7 @@
PACKAGE=Apache
DEFINE_warn | MPXS_Apache__Log_log_error | ...
-MODULE=Apache::SubProcess
+MODULE=Apache::SubProcess PACKAGE=Apache::RequestRec
# ap_subprocess_ won't work
modperl_spawn_proc_prog | MPXS_ | ... | spawn_proc_prog
