[Lxr-commits] CVS: lxr/lib/LXR Tagger.pm,1.19,1.20

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2070/lib/LXR

Modified Files:
	Tagger.pm 
Log Message:
Fix bug where a file that fails to index is marked as indexed for future runs.
Now file is only marked as indexed/referenced after a successful completion of 
the pass.

Fixes bug 676739 incomplete information if run is aborted


Index: Tagger.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Tagger.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Tagger.pm	23 Oct 2001 14:30:18 -0000	1.19
+++ Tagger.pm	21 Apr 2004 22:52:08 -0000	1.20
@@ -49,6 +49,7 @@
 		my $path = $files->tmpfile($pathname, $release);
 		
 		$lang->indexfile($pathname, $path, $fileid, $index, $config);
+		$index->setindexed($fileid);
 		unlink($path);
 	  } else {
 		print(STDERR "$pathname was already indexed\n");
@@ -82,6 +83,7 @@
 		my $path = $files->tmpfile($pathname, $release);
 		
 		$lang->referencefile($pathname, $path, $fileid, $index, $config);
+		$index->setreferenced($fileid);
 		unlink($path);
 	  } else {
 		print STDERR "$pathname was already referenced\n";