Give the filename when tokenization fails.

git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@1851 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Jean Delvare committed 2003-07-04 08:42:21 +00:00
1 parent 0c11d8eeed
commit 88c186174d
1 file changed
+2 -2
+2 -2
View File
@@ -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"