add clipboard script for urxvt

1 files changed, 5 insertions, 4 deletions

diff --git a/urxvt-clipboard b/xorg/.urxvt/ext/clipboard
index 3b68ccf..63c0ea2 100644
--- a/urxvt-clipboard
+++ b/xorg/.urxvt/ext/clipboard
@@ -1,10 +1,8 @@
-#! perl -w
+#!/usr/bin/perl
 # Author:   Bert Muennich
 # Website:  http://www.github.com/muennich/urxvt-perls
 # License:  GPLv2
 
-# Install: cp urxvt-clipboard /usr/lib/urxvt/perl/clipboard
-
 # Use keyboard shortcuts to copy the selection to the clipboard and to paste
 # the clipboard contents (optionally escaping all special characters).
 # Requires xsel to be installed!
@@ -31,7 +29,9 @@
 
 # The use of the functions should be self-explanatory!
 
+
 use strict;
+use warnings;
 
 sub on_start {
         my ($self) = @_;
@@ -79,7 +79,7 @@ sub paste_escaped {
 
         my $str = `$self->{paste_cmd}`;
         if ($? == 0) {
-                $str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g;
+                $str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\$1/g;
                 $self->tt_paste($str);
         } else {
                 print STDERR "error running '$self->{paste_cmd}': $!\n";
@@ -115,3 +115,4 @@ sub sel_grab {
 
         ()
 }
+