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;