This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make _REGEXP_COMMON work under win32
authorDavid Mitchell <davem@iabyn.com>
Fri, 17 Feb 2012 13:22:17 +0000 (13:22 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:48 +0000 (13:32 +0100)
There's an extra trailing semicolon which the win32 compiler doesn't like.

regexp.h

index b4427d3..c79b281 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -120,7 +120,7 @@ struct reg_code_block {
        PERL_BITFIELD32 pre_prefix:4;                                   \
        /* number of eval groups in the pattern - for security checks */\
        PERL_BITFIELD32 seen_evals:28;                                  \
-       CV *qr_anoncv;  /* the anon sub wrapped round qr/(?{..})/ */    \
+       CV *qr_anoncv   /* the anon sub wrapped round qr/(?{..})/ */
 
 typedef struct regexp {
        _XPV_HEAD;