From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 6 Feb 2002 14:44:20 +0000 (-0600)
Subject: another Encode fix for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b7cf638a3124941b94670130183a53639a76cb3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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}})