From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 7 Oct 2006 16:08:04 +0000 (+0000)
Subject: Eliminate two more unneeded strlen()s from Dumper.xs
X-Git-Tag: accepted/trunk/20130322.191538~16916
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=383d9087d85942bfbdcb8d799deecaa09c2664a0;p=platform%2Fupstream%2Fperl.git

Eliminate two more unneeded strlen()s from Dumper.xs

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

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index e45550b..0fc7bbd 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -360,7 +360,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
 		av_push(seenentry, namesv);
 		(void)SvREFCNT_inc(val);
 		av_push(seenentry, val);
-		(void)hv_store(seenhv, id, strlen(id),
+		(void)hv_store(seenhv, id, idlen,
 			       newRV_inc((SV*)seenentry), 0);
 		SvREFCNT_dec(seenentry);
 	    }
@@ -786,7 +786,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
 		seenentry = newAV();
 		av_push(seenentry, namesv);
 		av_push(seenentry, newRV_inc(val));
-		(void)hv_store(seenhv, id, strlen(id), newRV_inc((SV*)seenentry), 0);
+		(void)hv_store(seenhv, id, idlen, newRV_inc((SV*)seenentry), 0);
 		SvREFCNT_dec(seenentry);
 	    }
 	}