From: Peter.Dintelmann@dresdner-bank.com  <Peter.Dintelmann@dresdner-bank.com >
Date: Wed, 8 Dec 2004 15:49:32 +0000 (+0000)
Subject: [perl #32962] h2ph - use of local() in generated code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d02b64de5f9ba499420a267adddd8f43af075dad;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index f715f50..81e23f6 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 ? '' : '() ';