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

[jfs@users.alioth.debian.org]

Author: jfs
Date: Wed Nov  6 20:56:51 2013
New Revision: 10328

URL: http://svn.debian.org/wsvn/?sc=1&rev=10328
Log:
Improve comments, use a better function name

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=10328&op=diff
==============================================================================
--- man-cgi/extractor/files-release.pl	(original)
+++ man-cgi/extractor/files-release.pl	Wed Nov  6 20:56:51 2013
@@ -55,7 +55,7 @@
 foreach my $releasei (0 .. $#releases ) {
 	my $release = $releases[$releasei];
 	foreach my $file ( keys(%{$releaseh{$release}}) ) {
-		read_file($release,$releaseh{$release}{$file});
+		read_package_file($release,$releaseh{$release}{$file});
 	}
 }
 
@@ -166,7 +166,7 @@
 	return $rettext;
 }
 
-sub read_file {
+sub read_package_file {
 # Read in a Package file and retrieves packages for a given release
 	my ($release,$file)=@_;
 
@@ -174,7 +174,11 @@
 	print "Reading Package file '$file'\n" if $debug;
 # Finite-state machine
 # 0 - no package
-# 1 - package name read and reading the other information
+# 1 - package name read and reading other information
+# 2 - version read
+# 3 - pool filename location read
+# 4 - package description read
+
 	my $state=0;
 	my $packagename="";
 	my $description="";
@@ -186,7 +190,7 @@
 			if ( $description ne "" && $filename ne "" && $version ne "" ) {
 			$packages{$release}{$packagename}=$description."{".$version."} loc:".$filename;
 			print "Found package '$packagename': $description ($version)\n" if $debug ;
-# Do not add this information if the Package that does not comply the state-machine
+# Do not add this information if the Package that does not comply with the state-machine
 			}
 			$state=0;
 		}