aboutsummaryrefslogtreecommitdiff
path: root/AnyEvent-I3/lib/AnyEvent/I3.pm
diff options
context:
space:
mode:
Diffstat (limited to 'AnyEvent-I3/lib/AnyEvent/I3.pm')
-rw-r--r--AnyEvent-I3/lib/AnyEvent/I3.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/AnyEvent-I3/lib/AnyEvent/I3.pm b/AnyEvent-I3/lib/AnyEvent/I3.pm
index c7735c51..2d749d9e 100644
--- a/AnyEvent-I3/lib/AnyEvent/I3.pm
+++ b/AnyEvent-I3/lib/AnyEvent/I3.pm
@@ -156,7 +156,9 @@ instance on the current DISPLAY which is almost always what you want.
sub new {
my ($class, $path) = @_;
- $path = _call_i3('--get-socketpath') unless $path;
+ # We have I3SOCK now
+ $path ||= $ENV{I3SOCK};
+ $path ||= _call_i3('--get-socketpath');
# Check if we need to resolve ~
if ($path =~ /~/) {
@@ -165,6 +167,10 @@ sub new {
$path =~ s/~/$home/g;
}
+ if(!-S $path) {
+ die "$path is not a socket", $/;
+ }
+
bless { path => $path } => $class;
}