From: David Mitchell <davem@iabyn.com>
Date: Thu, 13 Dec 2012 13:24:58 +0000 (+0000)
Subject: B.xs: silence clang warning
X-Git-Tag: v5.17.7~89
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/71446f2da4f4887cb6b60b4ddee4754faee70d3d

B.xs: silence clang warning

PADOFFSET is unsigned, so checking that it's >= 0 is pointless.
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 1a6e257..bf7e9b1 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1942,7 +1942,7 @@ PadlistARRAYelt(padlist, idx)
 	B::PADLIST	padlist
 	PADOFFSET	idx
     PPCODE:
-    	if (idx >= 0 && PadlistMAX(padlist) >= 0
+	if (PadlistMAX(padlist) >= 0
 	 && idx <= PadlistMAX(padlist))
 	    XPUSHs(make_sv_object(aTHX_
 				  (SV *)PadlistARRAY(padlist)[idx]));