This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
preserve code blocks in interpolated qr//s
[perl5.git] / regexp.h
index 29f11c0..8b19055 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -70,6 +70,7 @@ struct reg_code_block {
     STRLEN start;
     STRLEN end;
     OP     *block;
+    REGEXP *src_regex;
 };