diff options
| author | Reini Urban <rurban@x-ray.at> | 2007-08-12 17:38:46 +0200 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2007-08-12 14:17:26 +0000 |
| commit | df44d732c379359119ddcbb4645f9d1a2c1ffec2 (patch) | |
| tree | 1b330d5c5f379ecd4ccf26cb09b6b5c8adfc3d89 | |
| parent | b57863ed0a63d5542d95689d8dfafc42a3c5f522 (diff) | |
| download | perl-df44d732c379359119ddcbb4645f9d1a2c1ffec2.tar.gz | |
regcomp.c fix 64int warning
Message-Id: <46BF0D66.5020605@x-ray.at>
p4raw-id: //depot/perl@31703
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -8882,7 +8882,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) } else if (k == LOGICAL) Perl_sv_catpvf(aTHX_ sv, "[%d]", o->flags); /* 2: embedded, otherwise 1 */ else if (k == FOLDCHAR) - Perl_sv_catpvf(aTHX_ sv, "[0x%"UVXf"]",ARG(o) ); + Perl_sv_catpvf(aTHX_ sv, "[0x%"UVXf"]", PTR2UV(ARG(o)) ); else if (k == ANYOF) { int i, rangestart = -1; const U8 flags = ANYOF_FLAGS(o); |