diff options
author | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-08-14 12:01:59 +0900 |
---|---|---|
committer | Kenichi Ishigaki <ishigaki@cpan.org> | 2014-08-14 12:01:59 +0900 |
commit | 3de3a2769d28fb30e66a1406b0c03f093ad6b18c (patch) | |
tree | e9df1a00d6fa042e536a96bfc2af783d331d985f /lib/Parse | |
parent | 3abbb9216cb1cda72c5bc12c8e4c8605f6609f93 (diff) |
not to consider \$VERSION in a regex as a $VERSION
- found in App::git::ship::perl: $r{var} ||= s/((?:our)?\s*\$VERSION)\s*=.*/$1 = '$version';/;
Diffstat (limited to 'lib/Parse')
-rw-r--r-- | lib/Parse/PMFile.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Parse/PMFile.pm b/lib/Parse/PMFile.pm index 6a6c00d..125fe27 100644 --- a/lib/Parse/PMFile.pm +++ b/lib/Parse/PMFile.pm @@ -428,7 +428,7 @@ sub _packages_per_pmfile { } # next unless /\$(([\w\:\']*)\bVERSION)\b.*\=/; - next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*(?<![!><=])\=(?![=>])/; + next unless /(?<!\\)([\$*])(([\w\:\']*)\bVERSION)\b.*(?<![!><=])\=(?![=>])/; my $current_parsed_line = $_; my $eval = qq{ package # |