diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-10-06 08:47:03 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-06 23:50:49 +0000 |
| commit | 88c9ea1eee075fb55dd1fa8e866125da26b560ff (patch) | |
| tree | 99acab8765b8aa23e2a1881e27d15ab52cd59e56 /toke.c | |
| parent | c7030b8198b0e74c565e901a90ca7061aebbf5ad (diff) | |
| download | perl-88c9ea1eee075fb55dd1fa8e866125da26b560ff.tar.gz | |
Re: several compilation problems on VMS in perl@32039
From: "Craig A. Berry" <craig.a.berry@gmail.com>
Message-ID: <c9ab31fc0710061147x3ee7f9bdg2b1bac3acd018bb2@mail.gmail.com>
Date: Sat, 6 Oct 2007 13:47:03 -0500
p4raw-id: //depot/perl@32058
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -12495,7 +12495,7 @@ Perl_yyerror(pTHX_ const char *s) if (yychar < 32) Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar)); else if (isPRINT_LC(yychar)) { - const unsigned char string = (unsigned char) yychar; + const char string = yychar; sv_catpvn(where_sv, &string, 1); } else |