cvs commit: embperl Embperl.pm Embperl.xs

[richter]

richter     01/05/25 12:46:34

  Modified:    .        Embperl.pm Embperl.xs
  Log:
  version sync
  
  Revision  Changes    Path
  1.154     +2 -2      embperl/Embperl.pm
  
  Index: Embperl.pm
  ===================================================================
  RCS file: /home/cvs/embperl/Embperl.pm,v
  retrieving revision 1.153
  retrieving revision 1.154
  diff -u -r1.153 -r1.154
  --- Embperl.pm        2001/05/18 08:32:06     1.153
  +++ Embperl.pm        2001/05/25 19:46:28     1.154
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: Embperl.pm,v 1.153 2001/05/18 08:32:06 richter Exp $
  +#   $Id: Embperl.pm,v 1.154 2001/05/25 19:46:28 richter Exp $
   #
   ###################################################################################
   
  @@ -90,7 +90,7 @@
   @ISA = qw(Exporter DynaLoader);
   
   
  -$VERSION = '1.3.2';
  +$VERSION = '1.3.3_dev';
   
   # HTML::Embperl cannot be bootstrapped in nonlazy mode except
   # under mod_perl, because its dependencies import symbols like ap_palloc
  
  
  
  1.46      +8 -9      embperl/Embperl.xs
  
  Index: Embperl.xs
  ===================================================================
  RCS file: /home/cvs/embperl/Embperl.xs,v
  retrieving revision 1.45
  retrieving revision 1.46
  diff -u -r1.45 -r1.46
  --- Embperl.xs        2001/05/22 11:19:48     1.45
  +++ Embperl.xs        2001/05/25 19:46:30     1.46
  @@ -97,13 +97,10 @@
           */
           /* workaround for not working GvFILE in Perl 5.6.1+ with threads */
        if(GvIMPORTED(gv))
  -            {
               RETVAL = "i" ;
  -            }
           else
  -            {
               RETVAL = "" ;
  -            }
  +       
           }
   #else
       if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
  @@ -345,10 +342,11 @@
   #ifdef EP2
   
   void 
  -embperl_ClearSymtab(sPackage)
  +embperl_ClearSymtab(sPackage,bDebug)
       char * sPackage
  +    int          bDebug
   CODE:
  -    ClearSymtab (pCurrReq, sPackage) ;
  +    ClearSymtab (pCurrReq, sPackage, bDebug) ;
   
   #endif
   
  @@ -750,10 +748,11 @@
       if (items > 1)
           {
           r -> pCodeSV = ST(1) ;
  -        SvREFCNT_inc (ST(1)) ;
  +        SvREFCNT_inc (r -> pCodeSV) ;
           }
  -OUTPUT:
  -    RETVAL
  +    ST(0) = RETVAL;
  +    if (RETVAL != &sv_undef)
  +        sv_2mortal(ST(0));
   
   
   
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]