r8105 - /man-cgi/extractor/files-release.pl

[jfs@users.alioth.debian.org]

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;
 		}