diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-27 21:59:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-27 21:59:21 +0000 |
| commit | efbca139c8a82f1676e66fa6d3cdf108789b68b7 (patch) | |
| tree | f24fccccdded1dc5e801471f11efb8a5dece5846 /lib/ExtUtils | |
| parent | 3980cbbb4cd3c070bfc70a7d90799906f1a025c8 (diff) | |
| download | perl-efbca139c8a82f1676e66fa6d3cdf108789b68b7.tar.gz | |
Retract #6853 (false alarm).
p4raw-id: //depot/perl@6855
Diffstat (limited to 'lib/ExtUtils')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index a7fe8603a9..1e9ff45cc9 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -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 }) )* |