YAPC::2004::Israel << Previous | Index | Next >> Copyright © 2004 Gaal Yahas

The ugly fix - after


     my @layouts = map { $_, $pub->{$_}->{'name'} }
         sort { $pub->{$a}->{'name'} cmp $pub->{$b}->{'name'} }
         grep { my $tmp = $_ ; /^\d+$/ && $pub->{$_}->{'type'} eq "layout" &&
             LJ::S2::can_use_layer($u, $pub->{$_}->{'uniq'}) && ($_ = $tmp) }
         keys %$pub;