From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sat, 13 Oct 2001 18:05:36 +0000 (+0000)
Subject: ExtUtils::MM_Unix should ignore comments when searching for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f05db7a1ca746e197911ed297a203f4ab9d9d70c;p=p5sagit%2Fp5-mst-13.2.git

ExtUtils::MM_Unix should ignore comments when searching for
$VERSION.

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 9f09aac..223310a 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -2783,7 +2783,7 @@ sub parse_version {
     my $inpod = 0;
     while (<FH>) {
 	$inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
-	next if $inpod;
+	next if $inpod || /^\s*#/;
 	chop;
 	# next unless /\$(([\w\:\']*)\bVERSION)\b.*\=/;
 	next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;