workaround for xsubpp

Message-Id: <200008272130.WAA10083@crypt.compulink.co.uk>

p4raw-id: //depot/perl@6853

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 1e9ff45..a7fe860 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -300,7 +300,7 @@ sub check_keyword {
        s/^(\s*)($_[0])\s*:\s*(?:#.*)?/$1/s && $2;
 }
 
-my ($C_group_rex, $C_arg);
+our ($C_group_rex, $C_arg);
 # Group in C (no support for comments or literals)
 $C_group_rex = qr/ [({\[]
                   (?: (?> [^()\[\]{}]+ ) | (??{ $C_group_rex }) )*