From 7ee74cd1dd28ee902582e71cf8d3ebddd06c0599 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@pelargir.(none)>
Date: Tue, 8 Jul 2008 15:24:07 +0200
Subject: Better support for whitespace in filenames.

---
 lxr-genxref | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lxr-genxref')

diff --git a/lxr-genxref b/lxr-genxref
index 3173bdd..d61526f 100755
--- a/lxr-genxref
+++ b/lxr-genxref
@@ -230,10 +230,18 @@ sub reference_file($$$) {
 sub hash_file($$$) {
     my ($file, $fileid, $rels) = @_;
 
+    return 0 if $context->config->{'search_size_limit'} > 0 and
+	$file->size > $context->config->{'search_size_limit'};
+
     my $docid;
     if ($index->to_hash($fileid)) {
 	my $handle;
 	sysopen($handle, $file->phys_path, 0) || die($!);
+	unless (-T $handle) {
+	    $handle->close();
+	    return 0;
+	}
+
 	warn("--- hashing     ".$file->name." [".$file->revision."]\n");
 	my $doc = $hash->new_document($file->name);
 	while (<$handle>) {
@@ -255,6 +263,7 @@ sub hash_file($$$) {
     }
     else {
 	$docid = $index->get_hashed_document($fileid);
+	return 0 unless $docid;
 	my $doc = $hash->get_document($docid);
 	if (reference_file($file, $fileid, $doc)) {
 	    $hash->save_document($docid, $doc);
-- 
cgit v1.2.3