Date: 25 Sep 1998 14:31:05 -0000
Message-ID: <19980925143105.1998.qmail@hyperreal.org>
From: dougm@hyperreal.org
To: modperl-cvs@hyperreal.org
Subject: cvs commit: modperl/IO IO.xs
Sender: modperl-cvs-owner@apache.org
Precedence: bulk
Reply-To: modperl-cvs@apache.org

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