perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/IO IO.xs
Date Fri, 25 Sep 1998 14:31:05 GMT
dougm       98/09/25 07:31:05

  Modified:    IO       IO.xs
  Log:
  capture return value of close()
  
  Revision  Changes    Path
  1.4       +5 -2      modperl/IO/IO.xs
  
  Index: IO.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/IO/IO.xs,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- IO.xs	1998/09/24 21:20:24	1.3
  +++ IO.xs	1998/09/25 14:31:05	1.4
  @@ -67,12 +67,15 @@
       else
           XPUSHs(RETVAL);
   
  -void
  +bool
   ApacheIO_close(self)
       SV *self
       
       CODE:
  -    do_close((GV*)SvRV(self), TRUE);
  +    RETVAL = do_close((GV*)SvRV(self), TRUE);
  +
  +    OUTPUT:
  +    RETVAL
   
   
   
  
  
  

Mime
View raw message