*** empty log message ***

diff --git a/src/perl/remote-clipboard b/src/perl/remote-clipboard
index 0b7140d430f26e849f233d06becef3bac93569ad..4b366041118154518504775c4cc8588e180adf48 100644 (file)
--- a/src/perl/remote-clipboard
+++ b/src/perl/remote-clipboard
@@ -75,7 +75,9 @@ sub fetch {
             $self->selection_clear;
             $self->selection ($txt);
             $self->selection_grab (urxvt::CurrentTime);
-            $self->msg ("selection fetched");
+            close $fh;
+            my $status = $? >> 8;
+            $self->msg ("selection fetched (status $status)");
          }
       });
    }