perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/t/net/perl api.pl
Date Mon, 03 Apr 2000 21:41:55 GMT
dougm       00/04/03 14:41:54

  Modified:    t/net/perl api.pl
  Log:
  fix for < 5.006
  
  Revision  Changes    Path
  1.42      +1 -1      modperl/t/net/perl/api.pl
  
  Index: api.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
  retrieving revision 1.41
  retrieving revision 1.42
  diff -u -r1.41 -r1.42
  --- api.pl	2000/04/03 05:41:29	1.41
  +++ api.pl	2000/04/03 21:41:53	1.42
  @@ -71,7 +71,7 @@
   }
   
   my $the_request = $r->the_request;
  -$r->the_request(join ' ', map { $r->$_ } qw(method uri protocol));
  +$r->the_request(join ' ', map { $r->$_() } qw(method uri protocol));
   test ++$i, $the_request eq $r->the_request;
   printf "old=$the_request, new=%s\n", $r->the_request;
   
  
  
  

Mime
View raw message