From 88c186174da02e881fa72835d902930004c840d7 Mon Sep 17 00:00:00 2001
From: Jean Delvare <khali@linux-fr.org>
Date: Fri, 4 Jul 2003 08:42:21 +0000
Subject: [PATCH] Give the filename when tokenization fails.

git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@1851 7894878c-1315-0410-8ee3-d5d059ff63e0
---
 prog/doc/doc-features.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/prog/doc/doc-features.pl b/prog/doc/doc-features.pl
index 2da167f4..24d05f8c 100755
--- a/prog/doc/doc-features.pl
+++ b/prog/doc/doc-features.pl
@@ -149,10 +149,10 @@ sub scan_kernel_chip
 			last if $line =~ m/;/;
 		}
 		
-		while (shift @tokens ne '{') { die unless @tokens }
+		while (shift @tokens ne '{') { die "Tokenization in $chip" unless @tokens }
 		for (;;)
 		{
-			while (shift @tokens ne '{') { die unless @tokens }
+			while (shift @tokens ne '{') { die "Tokenization in $chip" unless @tokens }
 			my $val = shift @tokens;
 			last if $val eq '0';
 			die "Parse error: ',' expected after '$val' within $chip"