perl assegnazione a hash in subroutine return diventa strana

Question

Running perl 5.12.4 È possibile ottenere la disparità tra il risultato di una funzione quando un hash viene assegnato all'interno dell'istruzione return o in precedenza. Più semplice esempio è:

perl -e 'sub s1 { 
    my @a=qw/b 1 c 2 a 3 a 4/; 
    my %h=@a; 
    return %h 
    } 
    print "@{[ s1()]}\n"' 
c 2 a 4 b 1 


perl -e 'sub s1 { 
    my @a=qw/b 1 c 2 a 3 a 4/; 
    my %h=@a; 
    return %h=@a 
    } 
    print "@{[ s1()]}\n"' 
c 2 c 2 a c 

Perché la (ri) assegnazione di hash nella dichiarazione di ritorno (2 ° esempio) corrotto l'hash restituita?

Answer 1

A causa di un bug. Sembra che sia stato corretto in 5.14.0. (. Presente a 5.12.4 non presenti in 5.14.0)

Minimal caso di test:

perl -E"say %h = qw/b 1 c 2 a 3 a 4/"