This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dump.c: Fix C++ build
authorFather Chrysostomos <sprout@cpan.org>
Mon, 20 Oct 2014 00:16:39 +0000 (17:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 20 Oct 2014 00:16:39 +0000 (17:16 -0700)
dump.c

diff --git a/dump.c b/dump.c
index 4c5c76e..a8956c9 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -275,8 +275,8 @@ Perl_pv_pretty( pTHX_ SV *dsv, char const * const str, const STRLEN count,
   const STRLEN max, char const * const start_color, char const * const end_color, 
   const U32 flags ) 
 {
-    const U8 *quotes = (flags & PERL_PV_PRETTY_QUOTE) ? "\"\"" :
-                       (flags & PERL_PV_PRETTY_LTGT)  ? "<>" : NULL;
+    const U8 *quotes = (U8*)((flags & PERL_PV_PRETTY_QUOTE) ? "\"\"" :
+                             (flags & PERL_PV_PRETTY_LTGT)  ? "<>" : NULL);
     STRLEN escaped;
     STRLEN max_adjust= 0;
     STRLEN orig_cur;