From 9ab12ef2296d9626027974b29ceab86b3cb51d24 Mon Sep 17 00:00:00 2001 From: Jean Delvare Date: Mon, 7 Jul 2003 11:36:17 +0000 Subject: [PATCH] Better message on tokenization error. git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@1867 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 24d05f8c..986edec2 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 "Tokenization in $chip" unless @tokens } + while (shift @tokens ne '{') { die "Tokenization failed in $chip" unless @tokens } for (;;) { - while (shift @tokens ne '{') { die "Tokenization in $chip" unless @tokens } + while (shift @tokens ne '{') { die "Tokenization failed in $chip" unless @tokens } my $val = shift @tokens; last if $val eq '0'; die "Parse error: ',' expected after '$val' within $chip"