From: Jim Cromie <jcromie@cpan.org>
Date: Wed, 12 Sep 2007 11:25:08 +0000 (-0600)
Subject: [ patch ] add line-number to embed.pl warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1594dd030daae8de2eb6f816e957dfd814508ae;p=p5sagit%2Fp5-mst-13.2.git

[ patch ] add line-number to embed.pl warnings
Message-ID: <46E820F4.80106@gmail.com>

p4raw-id: //depot/perl@31884
---

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;
 	}