perldiag: pseudo-hashes are long gone

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index b59b8bf..476a966 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6813,6 +6813,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
                            }
                        }
                    }
+#if 0
                    if (!match) { /* See if the folded version matches */
                        SV** listp;
 
@@ -6881,6 +6882,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
                            }
                        }
                    }
+#endif
                }
 
                /* If we allocated a string above, free it */