Permalink
Browse files

Fix up make diff target.

  • Loading branch information...
1 parent f9dec11 commit 68adb5861cf0df4fb2b0a2f2c5bbfa036f1f5af9 @pjcj committed Jul 11, 2012
Showing with 4 additions and 3 deletions.
  1. +2 −1 Makefile.PL
  2. +2 −2 lib/Devel/Cover/Test.pm
View
@@ -434,7 +434,8 @@ GEOM = 260x85+0+0
diff : out
\t \$(PERL) utils/makeh strip_criterion 'time' \$(TEST).out
\t \$(PERL) utils/makeh strip_criterion ' pod' \$(TEST).out
-\t gvim -geom \$(GEOM) -d -font \$(FONT) `\$(PERL) -Mblib -MDevel::Cover::Test -e '\$\$t = Devel::Cover::Test->new("\$(TEST)"); print \$\$t->cover_gold'` \$(TEST).out
+\t gold="`\$(PERL) -Mblib -MDevel::Cover::Test -e '\$\$t = Devel::Cover::Test->new(qq(\$(TEST))); print join qq(.), \$\$t->cover_gold'`"
+\t gvim -geom \$(GEOM) -d -font \$(FONT) "\$(gold)" \$(TEST).out
gold : pure_all
\t \$(PERL) utils/create_gold \$(TEST)
View
@@ -126,12 +126,12 @@ sub test_command
my $c = $self->perl;
unless ($self->{no_coverage})
{
- $c .= " -MDevel::Cover=" .
+ $c .= " '-MDevel::Cover=" .
join ",",
"-db", $self->{cover_db},
split " ", $self->{test_parameters}
}
- $c .= " " . shell_quote $self->test_file;
+ $c .= "' " . shell_quote $self->test_file;
$c .= " " . $self->test_file_parameters;
$c

0 comments on commit 68adb58

Please sign in to comment.