Fix typo in pod/perldsc.pod

[perl5.git] / generate_uudmap.c

diff --git a/generate_uudmap.c b/generate_uudmap.c
index 664333e..28cfd27 100644 (file)
--- a/generate_uudmap.c
+++ b/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.