This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Retract #6853 (false alarm).
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 27 Aug 2000 21:59:21 +0000 (21:59 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 27 Aug 2000 21:59:21 +0000 (21:59 +0000)
p4raw-id: //depot/perl@6855

lib/ExtUtils/xsubpp

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