You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@locus.apache.org on 2000/12/22 07:02:33 UTC
cvs commit: modperl/Symbol Symbol.xs
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 <ra...@theoryx5.uwinnipeg.ca>]
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;