diff options
| author | Shawn <sabetts@juicebox.(none)> | 2008-02-06 16:50:28 -0800 |
|---|---|---|
| committer | Shawn <sabetts@juicebox.(none)> | 2008-02-06 16:50:28 -0800 |
| commit | 42459044340ce1cb016a9a7d85e8c784f7e36979 (patch) | |
| tree | 647367fc3d59b1420e729b5a29ab67aaf0eb91cf /contrib | |
| parent | bd51b1705292845686f8f682d15f6b7b90ddc787 (diff) | |
| parent | 37933658a66f1d7f5cc00cbf83882b84cf8c8337 (diff) | |
| download | ratpoison-42459044340ce1cb016a9a7d85e8c784f7e36979.zip | |
Merge branch 'master' of ssh://sabetts@git.sv.gnu.org/srv/git/ratpoison
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/genrpbindings | 2 |
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,'")'; |