This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip .xs files in t/ dirs when comparing versions
authorFlorian Ragwitz <rafl@debian.org>
Tue, 12 Jul 2011 21:20:12 +0000 (23:20 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Tue, 12 Jul 2011 21:20:12 +0000 (23:20 +0200)
Porting/cmpVERSION.pl

index 5dadcf5..14023a6 100755 (executable)
@@ -124,7 +124,7 @@ foreach (`git --no-pager diff --name-only $tag_to_compare --diff-filter=ACMRTUXB
     next if exists $upstream_files{$_};
     if (/\.pm\z/) {
        push @{$module_diffs{$_}}, $_;
     next if exists $upstream_files{$_};
     if (/\.pm\z/) {
        push @{$module_diffs{$_}}, $_;
-    } elsif (/\.xs\z/) {
+    } elsif (/\.xs\z/ && !/\bt\b/) {
        push @{$module_diffs{pm_file_from_xs($_)}}, $_;
     }
 }
        push @{$module_diffs{pm_file_from_xs($_)}}, $_;
     }
 }