From: minima <minima>
Date: Tue, 11 Mar 2003 11:59:35 +0000 (+0000)
Subject: move recent new entries to the front of the list
X-Git-Tag: PRE-1-52~21
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=db4b52547dcfe1b83ce865aeb2c53a0ad68acdb3

move recent new entries to the front of the list
---

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;