Don't skip lines beginning by # in POD

[p5sagit/Module-Metadata.git] / lib / Module / Metadata.pm

diff --git a/lib/Module/Metadata.pm b/lib/Module/Metadata.pm
index d0b470d..8af7984 100644 (file)
--- a/lib/Module/Metadata.pm
+++ b/lib/Module/Metadata.pm
@@ -496,7 +496,6 @@ sub _parse_fh {
     my $line_num = $.;
 
     chomp( $line );
-    next if $line =~ /^\s*#/;
 
     my $is_cut;
     if ( $line =~ /^=(.{0,3})/ ) {
@@ -532,6 +531,9 @@ sub _parse_fh {
 
     } else {
 
+      # Skip comments in code
+      next if $line =~ /^\s*#/;
+
       # parse $line to see if it's a $VERSION declaration
       my( $vers_sig, $vers_fullname, $vers_pkg ) =
           ($line =~ /VERSION/)