perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/maps modperl_functions.map
Date Fri, 16 Jul 2004 22:38:36 GMT
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],
                    \@argv,
  @@ -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
   
  
  
  

Mime
View raw message