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 /utf8.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 'utf8.c')
| -rw-r--r-- | utf8.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2168,13 +2168,13 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f default: break; } if (ok) { - const unsigned char string = (unsigned char) ok; + const char string = ok; sv_catpvn(dsv, &string, 1); } } /* isPRINT() is the locale-blind version. */ if (!ok && (flags & UNI_DISPLAY_ISPRINT) && isPRINT(c)) { - const unsigned char string = (unsigned char) c; + const char string = c; sv_catpvn(dsv, &string, 1); ok = 1; } |