From 02515afc59137992c35c871af54b58a0c6730218 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Wed, 25 Jan 2006 15:33:43 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/remote-clipboard | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)");
          }
       });
    }
-- 
2.34.1