diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-13 11:28:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-13 11:28:43 +0000 |
| commit | a8adbc995c8b3526402e47f3b93617cf228128c3 (patch) | |
| tree | 177c2e8ad9b0bc7aaec173b64f6f72cac4d061aa /lib/ExtUtils | |
| parent | 6e838c7028a89a713e974e5b08797f5fb2193532 (diff) | |
| download | perl-a8adbc995c8b3526402e47f3b93617cf228128c3.tar.gz | |
Make some variables global, to avoid some "will not stay
shared" warnings at compile time
p4raw-id: //depot/perl@24820
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/ParseXS.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm index 2af2f747af..3e6e8739ab 100644 --- a/lib/ExtUtils/ParseXS.pm +++ b/lib/ExtUtils/ParseXS.pm @@ -196,8 +196,8 @@ sub process_file { $input_expr{$key} =~ s/;*\s+\z//; } - my ($bal, $cast, $size); - $bal = qr[(?:(?>[^()]+)|\((??{ $bal })\))*]; # ()-balanced + my ($cast, $size); + our $bal = qr[(?:(?>[^()]+)|\((??{ $bal })\))*]; # ()-balanced $cast = qr[(?:\(\s*SV\s*\*\s*\)\s*)?]; # Optional (SV*) cast $size = qr[,\s* (??{ $bal }) ]x; # Third arg (to setpvn) @@ -225,7 +225,7 @@ sub process_file { )) . "|$END)\\s*:"; - 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 }) )* |