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

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 3d7638e5db..55ab5d1cdd 100644
--- 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);