This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix debug output
authorKarl Williamson <public@khwilliamson.com>
Sun, 28 Nov 2010 03:49:49 +0000 (20:49 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 28 Nov 2010 12:49:16 +0000 (04:49 -0800)
The 'outside bitmap' message isn't orthogonal to the others, it is
independent.

regcomp.c

index 4ab4486..72afd06 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9659,7 +9659,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
            sv_catpvs(sv, "{unicode_all}");
        else if (flags & ANYOF_UTF8)
            sv_catpvs(sv, "{unicode}");
-       else if (flags & ANYOF_NONBITMAP)
+       if (flags & ANYOF_NONBITMAP_NON_UTF8)
            sv_catpvs(sv, "{outside bitmap}");
 
        {