shlist

commit 6ddd5ed0bbea1598ffa96b36edfbea1839750253
parent 22cf822b0b2ab863fe116c9635b99f83ffbe6b45
Author: Kyle Milz <kyle@0x30.net>
Date:   Sat, 27 Feb 2016 19:21:59 -0700

server: get test coverage working again

Diffstat:
M
server/SL/Test.pm
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/server/SL/Test.pm b/server/SL/Test.pm
@@ -11,8 +11,10 @@ sub new {
 
 	my $perl_args = '';
 	if ($ARGV[0] eq '-c') {
-		$perl_args = '-MDevel::Cover';
+		# Enable test coverage when -c is passed to the test
+		$perl_args = '-MDevel::Cover=-silent,1';
 	}
+
 	my $pid = open3(undef, undef, \*CHLD_ERR, "perl $perl_args -T sl -t -p 4729");
 
 	$self->{pid} = $pid;
@@ -22,7 +24,6 @@ sub new {
 
 sub readline {
 	my $self = shift;
-
 	return readline $self->{CHLD_ERR};
 }