another Encode fix for VMS

Message-Id: <5.1.0.14.2.20020206143717.01baf008@exchi01>

p4raw-id: //depot/perl@14578

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 52fee5a..83417a5 100644 (file)
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -255,7 +255,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f)
               (The copy is a pain - need a put-it-here option for decode.)
             */
            sv_setpvn(e->bufsv,s,len);
-           e->base.ptr = e->base.buf = (U8*)SvPVX(e->bufsv);
+           e->base.ptr = e->base.buf = (STDCHAR*)SvPVX(e->bufsv);
            e->base.end = e->base.ptr + SvCUR(e->bufsv);
            PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
            SvUTF8_on(e->bufsv);

diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL
index d6db779..042225c 100644 (file)
--- a/ext/Encode/Makefile.PL
+++ b/ext/Encode/Makefile.PL
@@ -93,7 +93,11 @@ sub postamble
                $continuator = '';
            }
        }
-       $str .= "\n\t\$(PERL) compile -O -o \$\@ -f $table.fnm\n\n";
+       if ($^O eq 'VMS' ) { # quote to preserve case
+           $str .= qq{\n\t\$(PERL) compile -"O" -o \$\@ -f $table.fnm\n\n};
+       } else {
+           $str .= qq{\n\t\$(PERL) compile -O -o \$\@ -f $table.fnm\n\n};
+       }
        open (FILELIST, ">$table.fnm")
            || die "Could not open $table.fnm: $!";
        foreach my $file (@{$tables{$table}})