X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=abb8b86cf6a771e850f1532195b3fef246144146;hb=db4b52547dcfe1b83ce865aeb2c53a0ad68acdb3;hp=c1beca63dd2f2dfbaa3bd24661304d4e68cba1cf;hpb=ae9359ca7e3c924f7cc719a2fb8bb6b1ad8f36de;p=spider.git diff --git a/perl/QSL.pm b/perl/QSL.pm index c1beca63..abb8b86c 100644 --- a/perl/QSL.pm +++ b/perl/QSL.pm @@ -80,7 +80,7 @@ sub update } } else { $r = [$man, 1, $t, $by]; - push @{$self->[1]}, $r; + unshift @{$self->[1]}, $r; } } $self->put;