Properly shell-escape ratpoison commands for perl bindings.

1 files changed, 1 insertions, 1 deletions

diff --git a/contrib/genrpbindings b/contrib/genrpbindings
index dffa99c..51a6148 100755
--- a/contrib/genrpbindings
+++ b/contrib/genrpbindings
@@ -60,7 +60,7 @@ open PYTHON, ">$PYTHON_FILE" or die "Can't create $PYTHON_FILE";
 # PERL preamble
 print PERL 'package Ratpoison;';
 print PERL '$RATPOISON="',$RATPOISON,'";';
-print PERL 'sub command { return `$RATPOISON -c "@_"`; }';
+print PERL 'sub command { my $a = "@_"; $a =~ s/(\')/\'\\\\\'\'/g; return `$RATPOISON -c \'$a\'`; }';
 
 # ELISP preamble
 print ELISP '(defvar ratpoison-program "',$RATPOISON,'")';