Clear up most of the VC6 compiler warnings in the following smoke:

http://www.nntp.perl.org/group/perl.daily-build.reports/39733

p4raw-id: //depot/perl@28626

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index fe41b3e792..b593e30c9e 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2962,7 +2962,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
 	    break;
 	case 'W': {
 	    char *end;
-	    U8 in_bytes = IN_BYTES;
+	    U8 in_bytes = (U8)IN_BYTES;
 
 	    end = start+SvLEN(cat)-1;
 	    if (utf8) end -= UTF8_MAXLEN-1;