diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-10-07 16:08:04 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-10-07 16:08:04 +0000 |
| commit | 383d9087d85942bfbdcb8d799deecaa09c2664a0 (patch) | |
| tree | 2a46e6775a8817d009ac9b7db044b2e263eb9494 /ext/Data | |
| parent | 3ab143769e84ecceef90e38e01a51f008592558c (diff) | |
| download | perl-383d9087d85942bfbdcb8d799deecaa09c2664a0.tar.gz | |
Eliminate two more unneeded strlen()s from Dumper.xs
p4raw-id: //depot/perl@28959
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index e45550b157..0fc7bbdd46 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); } } |