ExtUtils::MM_Unix should ignore comments when searching for
Abhijit Menon-Sen [Sat, 13 Oct 2001 18:05:36 +0000 (18:05 +0000)]
$VERSION.

p4raw-id: //depot/perl@12426

lib/ExtUtils/MM_Unix.pm

index 9f09aac..223310a 100644 (file)
@@ -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.*\=/;