Change 17805 by [EMAIL PROTECTED] on 2002/08/29 13:49:04
Fix based on:
Subject: [perl #16799] Perl 5.8.0 breaks POSIX::isprint() (and other
POSIX::xxx)
From: "[EMAIL PROTECTED] (via RT)" <[EMAIL PROTECTED]>
Date: 27 Aug 2002 22:10:16 -0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/POSIX/POSIX.xs#105 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.xs#105 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs#104~16460~ Tue May 7 16:42:42 2002
+++ perl/ext/POSIX/POSIX.xs Thu Aug 29 06:49:04 2002
@@ -843,7 +843,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isalnum(*s))
RETVAL = 0;
@@ -855,7 +855,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isalpha(*s))
RETVAL = 0;
@@ -867,7 +867,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!iscntrl(*s))
RETVAL = 0;
@@ -879,7 +879,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isdigit(*s))
RETVAL = 0;
@@ -891,7 +891,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isgraph(*s))
RETVAL = 0;
@@ -903,7 +903,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!islower(*s))
RETVAL = 0;
@@ -915,7 +915,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isprint(*s))
RETVAL = 0;
@@ -927,7 +927,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!ispunct(*s))
RETVAL = 0;
@@ -939,7 +939,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isspace(*s))
RETVAL = 0;
@@ -951,7 +951,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isupper(*s))
RETVAL = 0;
@@ -963,7 +963,7 @@
unsigned char * charstring
CODE:
unsigned char *s = charstring;
- unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
+ unsigned char *e = s + SvCUR(ST(0));
for (RETVAL = 1; RETVAL && s < e; s++)
if (!isxdigit(*s))
RETVAL = 0;
End of Patch.
