Bug?

[Salve J Nilsen]

Kieren Diment said:
> 
> use List::Util qw/shuffle/;
> my @list = @{$self->answer_list_orig_order};
> @list = shuffle @list if $self->random_order;
> return \@list
>
> returns the list unshuffled.
>
> What's up with that?

What does $self->random_order return in this case?


- Salve (Oslo.pm)

-- 
#!/usr/bin/env perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':50,$'.#    <sjn at foo.no>
'3!=0"59,6!`%%P\0!1)46%!F.Q`%01,`'."\n"));eval "&{'@_'}";  __END__ is near! :)