may be uninitialized warning forperl@12003

Message-Id: <200109121800.TAA05250@tempest.npl.co.uk>

p4raw-id: //depot/perl@12007

diff --git a/sv.c b/sv.c
index a7883af..1505a4f 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7664,8 +7664,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
        char c;
        int i;
        unsigned base = 0;
-       IV iv;
-       UV uv;
+       IV iv = 0;
+       UV uv = 0;
        NV nv;
        STRLEN have;
        STRLEN need;