GCC attributes!

Message-ID: <20050504215540.GA20413@petdance.com>

p4raw-id: //depot/perl@24414

1 files changed, 5 insertions, 5 deletions

diff --git a/xsutils.c b/xsutils.c
index c37c12bf49..490988bc24 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -57,14 +57,14 @@ static int
 modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
 {
     SV *attr;
-    char *name;
-    STRLEN len;
-    bool negated;
     int nret;
 
     for (nret = 0 ; numattrs && (attr = *attrlist++); numattrs--) {
-	name = SvPV(attr, len);
-	if ((negated = (*name == '-'))) {
+	STRLEN len;
+	const char *name = SvPV(attr, len);
+	const bool negated = (*name == '-');
+
+	if (negated) {
 	    name++;
 	    len--;
 	}