# ok, should have only one socket
$socket_name = $ENV{'STY'};
$socket_path = $socket;
- $socket_path =~ s/^.+\d+ Sockets? in ([^\n]+)\.\n.+$/$1/s;
+ #1 Socket in /run/screen/S-jrunyon.
+ $socket_path =~ s/^.*\d+ Sockets? in ([^\n]+)\.\s.+$/$1/s;
if (length($socket_path) != length($socket)) {
# only activate, if string length is different
# (to make sure, we really got a dir name)
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
"error reading screen informations from:");
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
- "$socket");
- return;
+ "$socket_path/$socket");
}
}