cvs commit: modperl/src/modules/perl URI.xs

[cholet]

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