Fix some smaller issues reported by Thijs Kinkhorst

[deb/packages.git] / lib / Packages / DoFilelist.pm

diff --git a/lib/Packages/DoFilelist.pm b/lib/Packages/DoFilelist.pm
index 20eb67fba6397010d133c4071a7bbb5ef4ac81bb..a1dda56b95d01904096438c2b448ed828b39a37c 100644 (file)
--- a/lib/Packages/DoFilelist.pm
+++ b/lib/Packages/DoFilelist.pm
@@ -43,7 +43,7 @@ sub do_filelist {
     my $arch = $opts->{arch}[0] ||'';
 
     %$html_header = ( title => sprintf( _g( "Filelist of package <em>%s</em> in <em>%s</em> of architecture <em>%s</em>" ), $pkg, $suite, $arch ),
-                     title_tag => sprintf( _g( "Filelist of of package %s/%s/%s" ), $pkg, $suite, $arch ),
+                     title_tag => sprintf( _g( "Filelist of package %s/%s/%s" ), $pkg, $suite, $arch ),
                      lang => $opts->{lang},
                      keywords => "debian, $suite, $arch, filelist",
                      print_title => 1,
@@ -61,7 +61,7 @@ sub do_filelist {
                $$page_content .= '<div id="pfilelist"><pre>';
                for (my $i=0; $i<scalar @files;) {
                    $file = substr($file, 0, $files[$i++]).$files[$i++];
-                   $$page_content .= "$file\n";
+                   $$page_content .= "/$file\n";
                }
                $$page_content .= '</pre></div>';
            }