From b71341ac0994adc2cd49d0ab91d01e6d7c675542 Mon Sep 17 00:00:00 2001 From: jca Date: Tue, 27 Dec 2022 02:02:44 +0000 Subject: [PATCH] perl: avoid -Wdeclaration-after-statement warning in our local patch Fixes build with clang 15. Input + "seems ok" from afresh1@ --- gnu/usr.bin/perl/cpan/Digest-MD5/MD5.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnu/usr.bin/perl/cpan/Digest-MD5/MD5.xs b/gnu/usr.bin/perl/cpan/Digest-MD5/MD5.xs index fda44bbe4a9..551d74041db 100644 --- a/gnu/usr.bin/perl/cpan/Digest-MD5/MD5.xs +++ b/gnu/usr.bin/perl/cpan/Digest-MD5/MD5.xs @@ -371,8 +371,8 @@ context(ctx, ...) PPCODE: if (items > 2) { STRLEN len; - ctx->count = SvUV(ST(1)) << 3; unsigned char *buf = (unsigned char *)(SvPV(ST(2), len)); + ctx->count = SvUV(ST(1)) << 3; ctx->state[0] = buf[ 0] | (buf[ 1]<<8) | (buf[ 2]<<16) | (buf[ 3]<<24); ctx->state[1] = buf[ 4] | (buf[ 5]<<8) | (buf[ 6]<<16) | (buf[ 7]<<24); ctx->state[2] = buf[ 8] | (buf[ 9]<<8) | (buf[10]<<16) | (buf[11]<<24); -- 2.20.1