X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FDoFilelist.pm;h=f76efb91e2bfc429cab119a7ea211ef26b784be4;hp=97e9f013bea2db584800accdc1c87bbfde3c41ca;hb=08aa87adaf6c59131d01f8a4a078dc4e78475788;hpb=2ec757bb58907b15c43548be5601d4f2b8c7caac

diff --git a/lib/Packages/DoFilelist.pm b/lib/Packages/DoFilelist.pm
index 97e9f01..f76efb9 100644
--- a/lib/Packages/DoFilelist.pm
+++ b/lib/Packages/DoFilelist.pm
@@ -24,7 +24,7 @@ our @ISA = qw( Exporter );
 our @EXPORT = qw( do_filelist );
 
 sub do_filelist {
-    my ($params, $opts, $html_header, $page_content) = @_;
+    my ($params, $opts, $page_content) = @_;
 
     if ($params->{errors}{package}) {
 	fatal_error( _g( "package not valid or not specified" ) );
@@ -51,7 +51,7 @@ sub do_filelist {
 		fatal_error( _g( "No such package in this suite on this architecture." ) );
 	    } else {
 		my @files = unpack "L/(CC/a)", $contents{$pkg};
-		my $file;
+		my $file = '';
 
 		$page_content->{files} = [];
 		for (my $i=0; $i<scalar @files;) {