Change 23628 by [EMAIL PROTECTED] on 2004/12/08 16:50:30
Subject: [perl #32962] h2ph - use of local() in generated code
From: [EMAIL PROTECTED] (via RT)
Date: 8 Dec 2004 15:49:32 -0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/utils/h2ph.PL#49 edit
Differences ...
==== //depot/perl/utils/h2ph.PL#49 (text) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL#48~23547~ Fri Nov 26 07:16:59 2004
+++ perl/utils/h2ph.PL Wed Dec 8 08:50:30 2004
@@ -142,7 +142,7 @@
$curargs{$arg} = 1;
}
$args =~ s/\b(\w)/\$$1/g;
- $args = "local($args) = [EMAIL PROTECTED];\n$t ";
+ $args = "my($args) = [EMAIL PROTECTED];\n$t ";
}
s/^\s+//;
expr();
@@ -338,7 +338,7 @@
}
$args = (
@args
- ? "local(" . (join ',', map "\$$_", @args) . ") = [EMAIL
PROTECTED];\n$t "
+ ? "my(" . (join ',', map "\$$_", @args) . ") = [EMAIL
PROTECTED];\n$t "
: ""
);
my $proto = @args ? '' : '() ';
End of Patch.
