X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/51d39a2b9b48c1e31f96cc6f629159aaa722fecf..ec19c4344d75df46681d8fd0d1379e8bf4a1d091:/mr

diff --git a/mr b/mr
index a5ff4de..11d1c2b 100755
--- a/mr
+++ b/mr
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 #man{{{
+
 =head1 NAME
 
 mr - a Multiple Repository management tool
@@ -227,6 +228,7 @@ Licensed under the GNU GPL version 2 or higher.
 http://kitenet.net/~joey/code/mr/
 
 =cut
+
 #}}}
 
 use warnings;
@@ -525,8 +527,10 @@ sub loadconfig { #{{{
 	close $in;
 
 	my $section;
+	my $line=0;
 	while (@lines) {
 		$_=shift @lines;
+		$line++;
 		chomp;
 		next if /^\s*\#/ || /^\s*$/;
 		if (/^\[([^\]]*)\]\s*$/) {
@@ -539,6 +543,7 @@ sub loadconfig { #{{{
 			# continued value
 			while (@lines && $lines[0]=~/^\s(.+)/) {
 				shift(@lines);
+				$line++;
 				$value.="\n$1";
 				chomp $value;
 			}
@@ -570,7 +575,7 @@ sub loadconfig { #{{{
 			}
 		}
 		else {
-			die "$f line $.: parse error\n";
+			die "$f line $line: parse error\n";
 		}
 	}