move recent new entries to the front of the list

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index c1beca63dd2f2dfbaa3bd24661304d4e68cba1cf..abb8b86cf6a771e850f1532195b3fef246144146 100644 (file)
--- 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;