From: root <root>
Date: Wed, 25 Jan 2006 15:33:43 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=02515afc59137992c35c871af54b58a0c6730218;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/remote-clipboard b/src/perl/remote-clipboard
index 0b7140d4..4b366041 100644
--- 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)");
          }
       });
    }