From 43003dfe3ad45d1698bed8a37f2b0f5b14f20d4f Mon Sep 17 00:00:00 2001 From: millert Date: Mon, 12 Oct 2009 18:10:27 +0000 Subject: import perl 5.10.1 --- gnu/usr.bin/perl/generate_uudmap.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl/generate_uudmap.c') diff --git a/gnu/usr.bin/perl/generate_uudmap.c b/gnu/usr.bin/perl/generate_uudmap.c index 664333ef302..28cfd274eed 100644 --- a/gnu/usr.bin/perl/generate_uudmap.c +++ b/gnu/usr.bin/perl/generate_uudmap.c @@ -14,7 +14,7 @@ int main() { char *p; for (i = 0; i < sizeof(PL_uuemap) - 1; ++i) - PL_uudmap[(U8)PL_uuemap[i]] = i; + PL_uudmap[(U8)PL_uuemap[i]] = (char)i; /* * Because ' ' and '`' map to the same value, * we need to decode them both the same. -- cgit v1.2.3-59-g8ed1b