Use $SEARCH_CGI

diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl
index 6b4a4676daa4ab3835961a04ddc83de072c70178..d63d7e993d8c8602e6701d510dfd76b5771ab726 100755 (executable)
--- a/cgi-bin/search_packages.pl
+++ b/cgi-bin/search_packages.pl
@@ -26,7 +26,7 @@ use Deb::Versions;
 use Packages::Search qw( :all );
 use Packages::HTML ();
 
-my $thisscript = "search_packages.pl";
+my $thisscript = $Packages::HTML::SEARCH_CGI;
 my $HOME = "http://www.debian.org";
 my $ROOT = "";
 my $SEARCHPAGE = "http://packages.debian.org/";