perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@locus.apache.org
Subject cvs commit: modperl/src/modules/perl URI.xs
Date Mon, 10 Apr 2000 14:07:07 GMT
cholet      00/04/10 07:07:07

  Modified:    src/modules/perl URI.xs
  Log:
  port() must set port, not just port_str
  
  Revision  Changes    Path
  1.6       +3 -0      modperl/src/modules/perl/URI.xs
  
  Index: URI.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/URI.xs,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- URI.xs	1998/11/13 03:27:52	1.5
  +++ URI.xs	2000/04/10 14:07:07	1.6
  @@ -183,6 +183,9 @@
   
       CODE:
       get_set_PVp(uri->uri.port_str,uri->pool);
  +    if (items > 1) {
  +        uri->uri.port = (int)SvIV(ST(1));
  +    }
   
       OUTPUT:
       RETVAL 
  
  
  

Mime
View raw message