From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 20 Jan 2000 08:40:13 +0000 (+0000)
Subject: sv_true() has a superfluous test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2f1de04b50c19c25c9b2a25f30fea50533c143c;p=p5sagit%2Fp5-mst-13.2.git

sv_true() has a superfluous test

p4raw-id: //depot/perl@4823
---

diff --git a/sv.c b/sv.c
index 0b838a1..010ce2e 100644
--- a/sv.c
+++ b/sv.c
@@ -4582,8 +4582,7 @@ Perl_sv_true(pTHX_ register SV *sv)
     if (SvPOK(sv)) {
 	register XPV* tXpv;
 	if ((tXpv = (XPV*)SvANY(sv)) &&
-		(*tXpv->xpv_pv > '0' ||
-		tXpv->xpv_cur > 1 ||
+		(tXpv->xpv_cur > 1 ||
 		(tXpv->xpv_cur && *tXpv->xpv_pv != '0')))
 	    return 1;
 	else
diff --git a/sv.h b/sv.h
index 4505d60..eea984a 100644
--- a/sv.h
+++ b/sv.h
@@ -676,8 +676,7 @@ struct xpvio {
     :    SvPOK(sv)						\
 	?   (({XPV *nxpv = (XPV*)SvANY(sv);			\
 	     nxpv &&						\
-	     (*nxpv->xpv_pv > '0' ||				\
-	      nxpv->xpv_cur > 1 ||				\
+	     (nxpv->xpv_cur > 1 ||				\
 	      (nxpv->xpv_cur && *nxpv->xpv_pv != '0')); })	\
 	     ? 1						\
 	     : 0)						\
@@ -712,8 +711,7 @@ struct xpvio {
     ? 0								\
     :    SvPOK(sv)						\
 	?   ((PL_Xpv = (XPV*)SvANY(sv)) &&			\
-	     (*PL_Xpv->xpv_pv > '0' ||				\
-	      PL_Xpv->xpv_cur > 1 ||				\
+	     (PL_Xpv->xpv_cur > 1 ||				\
 	      (PL_Xpv->xpv_cur && *PL_Xpv->xpv_pv != '0'))	\
 	     ? 1						\
 	     : 0)						\