nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

AnyEvent-I3: use Carp for easier debugging (includes stacktraces)

This commit is contained in:
Michael Stapelberg 2017-09-13 16:39:44 +02:00
parent b23e1f644f
commit 72c972a36c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
AnyEvent-I3/lib/AnyEvent/I3.pm
View File

@ -9,6 +9,7 @@ use AnyEvent::Socket;
use AnyEvent; use AnyEvent;
use Encode; use Encode;
use Scalar::Util qw(tainted); use Scalar::Util qw(tainted);
use Carp;
=head1 NAME =head1 NAME
@ -186,7 +187,7 @@ sub new {
# We use getpwuid() instead of $ENV{HOME} because the latter is tainted # We use getpwuid() instead of $ENV{HOME} because the latter is tainted
# and thus produces warnings when running tests with perl -T # and thus produces warnings when running tests with perl -T
my $home = (getpwuid($<))[7]; my $home = (getpwuid($<))[7];
die "Could not get home directory" unless $home and -d $home; confess "Could not get home directory" unless $home and -d $home;
$path =~ s/~/$home/g; $path =~ s/~/$home/g;
} }
@ -330,9 +331,9 @@ scalar), if specified.
sub message { sub message {
my ($self, $type, $content) = @_; my ($self, $type, $content) = @_;
die "No message type specified" unless defined($type); confess "No message type specified" unless defined($type);
die "No connection to i3" unless defined($self->{ipchdl}); confess "No connection to i3" unless defined($self->{ipchdl});
my $payload = ""; my $payload = "";
if ($content) { if ($content) {
@ -373,7 +374,7 @@ sub _ensure_connection {
return if defined($self->{ipchdl}); return if defined($self->{ipchdl});
$self->connect->recv or die "Unable to connect to i3 (socket path " . $self->{path} . ")"; $self->connect->recv or confess "Unable to connect to i3 (socket path " . $self->{path} . ")";
} }
=head2 get_workspaces =head2 get_workspaces