Author: jfs
Date: Tue Jan 11 22:46:11 2011
New Revision: 8105

URL: http://svn.debian.org/wsvn/?sc=1&rev=8105
Log:
Typo fixes

Modified:
    man-cgi/extractor/files-release.pl

Modified: man-cgi/extractor/files-release.pl
URL: 
http://svn.debian.org/wsvn/man-cgi/extractor/files-release.pl?rev=8105&op=diff
==============================================================================
--- man-cgi/extractor/files-release.pl (original)
+++ man-cgi/extractor/files-release.pl Tue Jan 11 22:46:11 2011
@@ -69,7 +69,7 @@
                my $filename= retrieve_filename($packages{$release}{$package});
                my $version= retrieve_version($packages{$release}{$package});
                my $location=  dirname($filename);
-               $location =~ s|^.*pool/||
+               $location =~ s|^.*pool/||;
                my $packagedir = 
$manpages_files."/".$location."/".$package."_".$version;
                if ( -e "$packagedir" ) {
                     # For each directory, create, for each file
@@ -173,10 +173,11 @@
        my $packagename="";
        my $description="";
        my $version="";
+       my $filename="";
        while (<FILE>) {
                chomp;
                if ( $state == 4 && /^$/ ){
-                       
$packages{$release}{$packagename}=$description."{".$version."} loc:".$filename";
+                       
$packages{$release}{$packagename}=$description."{".$version."} loc:".$filename;
                        print "Found $packagename: $description ($version)\n" 
if $debug;
                        $state=0;
                }


-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]

Reply via email to