Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Provide coverage for .cc and .hh files.

  • Loading branch information...
commit ce9578bb5e16f75aa3f914d6a503fa9aff3d8697 1 parent f9fa5d8
Paul Johnson authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 bin/cover
6 bin/cover
View
@@ -233,7 +233,7 @@ sub main
if ($Options->{gcov})
{
my $t = $] > 5.7 ? undef : time;
- my $xs = sub { utime $t, $t, $_ if /\.(xs|c|h)$/ };
+ my $xs = sub { utime $t, $t, $_ if /\.(xs|cc?|hh?)$/ };
File::Find::find({ wanted => $xs, no_chdir => 0 }, ".");
}
# print STDERR "$_: $ENV{$_}\n" for qw(PERL5OPT HARNESS_PERL_SWITCHES);
@@ -246,7 +246,7 @@ sub main
{
my $gc = sub
{
- return unless /\.(xs|c|h)$/;
+ return unless /\.(xs|cc?|hh?)$/;
my ($name) = /([^\/]+$)/;
@@ -266,7 +266,7 @@ sub main
{
return unless /\.gcov$/;
my $xs = $_;
- return if $xs =~ s/\.(c|h)\.gcov$/.xs.gcov/ && -e $xs;
+ return if $xs =~ s/\.(cc?|hh?)\.gcov$/.xs.gcov/ && -e $xs;
s/^\.\///;
push @gc, $_;
};
Please sign in to comment.
Something went wrong with that request. Please try again.