diff options
| author | Peter.Dintelmann@dresdner-bank.com <Peter.Dintelmann@dresdner-bank.com > | 2004-12-08 15:49:32 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-12-08 16:50:30 +0000 |
| commit | d02b64de5f9ba499420a267adddd8f43af075dad (patch) | |
| tree | f004879d5ad808cf0febff78d616996db359a462 /utils/h2ph.PL | |
| parent | 02c473a9139e94d6158d1e3dd9a912f3525b3b21 (diff) | |
| download | perl-d02b64de5f9ba499420a267adddd8f43af075dad.tar.gz | |
[perl #32962] h2ph - use of local() in generated code
Message-ID: <rt-3.0.11-32962-102394.11.065973521948@perl.org>
p4raw-id: //depot/perl@23628
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index f715f507db..81e23f6036 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -142,7 +142,7 @@ while (defined (my $file = next_file())) { $curargs{$arg} = 1; } $args =~ s/\b(\w)/\$$1/g; - $args = "local($args) = \@_;\n$t "; + $args = "my($args) = \@_;\n$t "; } s/^\s+//; expr(); @@ -338,7 +338,7 @@ while (defined (my $file = next_file())) { } $args = ( @args - ? "local(" . (join ',', map "\$$_", @args) . ") = \@_;\n$t " + ? "my(" . (join ',', map "\$$_", @args) . ") = \@_;\n$t " : "" ); my $proto = @args ? '' : '() '; |