[perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)'

On Mon Jan 27 09:11:18 2014, alh wrote:
> New patch attached, with test cases.
> 
> I'm only checking of OPf_MOD, but perhaps the pushmark should have all
> of the flags of the padop...
> 
> Not sure.

One issue with both patches is deparsing:

tony@mars:.../git/perl2$ ./perl -Ilib -MO=Deparse -e 'sub foo { my $x; my $y; 1 }'
sub foo {
    my($x, $y);
    1;
}
-e syntax OK


Tony

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=121077

• [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Tony Cook via RT
• [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Matthew Horsfall
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage
• [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Tony Cook via RT
• [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Tony Cook via RT
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Zefram
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Father Chrysostomos
• [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Tony Cook via RT
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Father Chrysostomos
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Father Chrysostomos
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Zefram
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by Dave Mitchell
• Re: [perl #121077] [PATCH] Optimise 'my $x; my $y' into 'my ($x, $y)' by wolfsage