X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=964406fe9c44fa43b7ea9b8cadf6c7e088d062fd;hb=37be2b3976e33708042402101fbafebc36dcb7a3;hp=f0af73cf08d93a75f583b0013dcd084304051234;hpb=25b0f989226b5af898d2adee56e4fec948c148e8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.pl b/embed.pl
index f0af73c..964406f 100755
--- a/embed.pl
+++ b/embed.pl
@@ -312,7 +312,7 @@ sub readsyms (\%$) {
 	s/[ \t]*#.*//;		# Delete comments.
 	if (/^\s*(\S+)\s*$/) {
 	    my $sym = $1;
-	    warn "duplicate symbol $sym while processing $file\n"
+	    warn "duplicate symbol $sym while processing $file line $.\n"
 		if exists $$syms{$sym};
 	    $$syms{$sym} = 1;
 	}
@@ -333,7 +333,7 @@ sub readvars(\%$$@) {
 	if (/PERLVARA?I?S?C?\($pre(\w+)/) {
 	    my $sym = $1;
 	    $sym = $pre . $sym if $keep_pre;
-	    warn "duplicate symbol $sym while processing $file\n"
+	    warn "duplicate symbol $sym while processing $file line $.\n"
 		if exists $$syms{$sym};
 	    $$syms{$sym} = $pre || 1;
 	}