fix use of uninitialized var in pp_unpack()

	Message-Id: <199806301132.OAA27353@alpha.hut.fi>
	Subject: [PATCH] 5.004_69 (also for 5.004_04) one more^Wless quad bug

p4raw-id: //depot/perl@1284

diff --git a/pp.c b/pp.c
index 3d7638e..55ab5d1 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3476,7 +3476,7 @@ PP(pp_unpack)
                    s += sizeof(unsigned Quad_t);
                }
                sv = NEWSV(43, 0);
-               if (aquad <= UV_MAX)
+               if (auquad <= UV_MAX)
                    sv_setuv(sv, (UV)auquad);
                else
                    sv_setnv(sv, (double)auquad);