cvs commit: modperl/Symbol Symbol.xs

[dougm]

dougm       00/12/21 22:02:32

  Modified:    .        Changes
               Symbol   Symbol.xs
  Log:
  rid PL_na usage in Symbol.xs
  
  Revision  Changes    Path
  1.561     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.560
  retrieving revision 1.561
  diff -u -r1.560 -r1.561
  --- Changes   2000/12/21 20:00:09     1.560
  +++ Changes   2000/12/22 06:02:30     1.561
  @@ -10,6 +10,8 @@
   
   =item 1.24_02-dev
   
  +rid PL_na usage in Symbol.xs
  +
   INSTALL.win32 updates, obsolete INSTALL.activeperl removed
   [Randy Kobes <[EMAIL PROTECTED]>]
   
  
  
  
  1.5       +4 -7      modperl/Symbol/Symbol.xs
  
  Index: Symbol.xs
  ===================================================================
  RCS file: /home/cvs/modperl/Symbol/Symbol.xs,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Symbol.xs 1998/11/24 19:10:56     1.4
  +++ Symbol.xs 2000/12/22 06:02:32     1.5
  @@ -2,11 +2,6 @@
   #include "perl.h"
   #include "XSUB.h"
   
  -#include "patchlevel.h" 
  -#if ((PATCHLEVEL >= 4) && (SUBVERSION >= 76)) || (PATCHLEVEL >= 5) 
  -#define na PL_na 
  -#endif 
  -
   #ifdef PERL_OBJECT
   #define sv_name(svp) svp
   #define undef(ref) 
  @@ -102,8 +97,10 @@
                mg_get(sv);
                sym = SvPOKp(sv) ? SvPVX(sv) : Nullch;
            }
  -         else
  -             sym = SvPV(sv, na);
  +         else {
  +                STRLEN n_a;
  +                sym = SvPV(sv, n_a);
  +            }
            if(sym)
                cv = perl_get_cv(sym, TRUE);
            break;