cvs commit: modperl/t/net/perl api.pl

[dougm]

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;