From 99666617112eaa376149d7a928ed441275f9c12f Mon Sep 17 00:00:00 2001
From: sf-exg <sf-exg>
Date: Sun, 13 Apr 2014 19:29:54 +0000
Subject: Fix typos.

---
 src/perl/selection-to-clipboard | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/perl/selection-to-clipboard

diff --git a/src/perl/selection-to-clipboard b/src/perl/selection-to-clipboard
new file mode 100644
index 0000000..0431694
--- /dev/null
+++ b/src/perl/selection-to-clipboard
@@ -0,0 +1,27 @@
+#! perl -w
+
+=head1 NAME
+
+selection-to-clipboard - copy the selection to the clipboard each time a selection is made
+
+=head1 SYNOPSIS
+
+   urxvt -pe selection-to-clipboard
+
+=head1 DESCRIPTION
+
+This very simple extension copies the selection to the clipboard every
+time a selection is made. This, in effect, synchronises the clipboard with
+the selection for selections done by rxvt-unicode.
+
+=cut
+
+sub on_sel_grab {
+   my ($self, $time) = @_;
+
+   $self->selection ($self->selection, 1);
+   $self->selection_grab ($time, 1);
+
+   ()
+}
+
-- 
cgit v1.2.3