Remove trailing whitespace from Perl scripts

This commit is contained in:
Orestis Floros
2018-03-15 21:33:45 +02:00
parent c1e622be27
commit 3f4268561d
8 changed files with 16 additions and 16 deletions

View File

@ -21,15 +21,15 @@ use X11::XCB qw(:all);
sub get_wm_state {
sync_with_i3;
my ($con) = @_;
my ($con) = @_;
my $cookie = $x->get_property(
0,
0,
$con->{id},
$x->atom(name => '_NET_WM_STATE')->id,
GET_PROPERTY_TYPE_ANY,
0,
0,
4096
);
);
my $reply = $x->get_property_reply($cookie->{sequence});
my $len = $reply->{length};