citrun

commit c5ed2c803588ffbed114b838bc9253fb301de49e
parent 76537d3b88741f9e0537adea0a5a88a78f790e8b
Author: Kyle Milz <kyle@0x30.net>
Date:   Tue, 14 Jun 2016 21:02:17 -0600

SCV: change socket path to citrun-test.socket

Diffstat:
M
SCV/Project.pm
 | 
2
+-
M
SCV/Viewer.pm
 | 
6
++++--

2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/SCV/Project.pm b/SCV/Project.pm
@@ -96,7 +96,7 @@ sub inst_src_preamble {
 sub run {
 	my ($self, @args) = @_;
 
-	$ENV{CITRUN_SOCKET} = "SCV::Viewer.socket";
+	$ENV{CITRUN_SOCKET} = "citrun-test.socket";
 
 	my $tmp_dir = $self->{tmp_dir};
 	$self->{pid} = open2(\*CHLD_OUT, undef, "$tmp_dir/$self->{prog_name}", @args);
diff --git a/SCV/Viewer.pm b/SCV/Viewer.pm
@@ -4,6 +4,8 @@ use strict;
 use IO::Socket::UNIX;
 use Test;
 
+my $viewer_socket_name = "citrun-test.socket";
+
 sub new {
 	my ($class) = @_;
 	my $self = {};
@@ -11,7 +13,7 @@ sub new {
 
 	my $viewer_socket = IO::Socket::UNIX->new(
 		Type => SOCK_STREAM(),
-		Local => "SCV::Viewer.socket",
+		Local => $viewer_socket_name,
 		Listen => 1,
 	);
 	die "socket error: $!\n" unless ($viewer_socket);
@@ -113,7 +115,7 @@ sub DESTROY {
 	my ($self) = @_;
 
 	close($self->{viewer_socket});
-	unlink "SCV::Viewer.socket";
+	unlink $viewer_socket_name;
 }
 
 1;