diff options
| author | David Golden <dagolden@cpan.org> | 2010-07-19 16:10:37 -0700 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-07-19 16:10:37 -0700 |
| commit | 300da4a166907f431ffc399759e76770773a2007 (patch) | |
| tree | 8790e08ea43c113aeb309a017a61ab316e1c4fde /Porting | |
| parent | 7da24786ed66d9241cb264e8f77343fc46013666 (diff) | |
| download | perl-300da4a166907f431ffc399759e76770773a2007.tar.gz | |
cmpVERSION.pl: don't flag version 'undef'
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/cmpVERSION.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 9f013efa60..9ba09e0eb9 100644 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -97,10 +97,9 @@ foreach my $pm_file (@module_diffs) { my $pm_version = eval {MM->parse_version($pm_file)}; my $orig_pm_content = get_file_from_git($pm_file, $tag_to_compare); my $orig_pm_version = eval {MM->parse_version(\$orig_pm_content)}; - next unless - defined $pm_version && - defined $orig_pm_version && - $pm_version eq $orig_pm_version; + next if ( ! defined $pm_version || ! defined $orig_pm_version ); + next if ( $pm_version eq 'undef' || $orig_pm_version eq 'undef' ); # sigh + next if $pm_version ne $orig_pm_version; push @output_files, $pm_file; push @output_diffs, $pm_file unless $pm_eq; push @output_diffs, $xs_file unless $xs_eq; |