X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/adc607b0b5563afe596fdfa73347ea1cb9f1da49..76bdbc890f5320134fb05a0ff5b5c012f95ee69e:/mr

diff --git a/mr b/mr
index f725318..3162623 100755
--- a/mr
+++ b/mr
@@ -527,8 +527,10 @@ sub loadconfig { #{{{
 	close $in;
 
 	my $section;
+	my $line=0;
 	while (@lines) {
 		$_=shift @lines;
+		$line++;
 		chomp;
 		next if /^\s*\#/ || /^\s*$/;
 		if (/^\[([^\]]*)\]\s*$/) {
@@ -541,6 +543,7 @@ sub loadconfig { #{{{
 			# continued value
 			while (@lines && $lines[0]=~/^\s(.+)/) {
 				shift(@lines);
+				$line++;
 				$value.="\n$1";
 				chomp $value;
 			}
@@ -572,7 +575,7 @@ sub loadconfig { #{{{
 			}
 		}
 		else {
-			die "$f line $.: parse error\n";
+			die "$f line $line: parse error\n";
 		}
 	}
 
@@ -806,4 +809,5 @@ config =
 
 ed = echo "A horse is a horse, of course, of course.."
 T = echo "I pity the fool."
+right = echo "Not found."
 #}}}