diff options
-rwxr-xr-x | contrib/genrpbindings | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/genrpbindings b/contrib/genrpbindings index 0f924d3..ee91043 100755 --- a/contrib/genrpbindings +++ b/contrib/genrpbindings @@ -61,7 +61,7 @@ open PYTHON, ">$PYTHON_FILE" or die "Can't create $PYTHON_FILE"; # PERL preamble print PERL 'package Ratpoison;'; -print PERL '$RATPOISON="',$RATPOISON,'";'; +print PERL '$RATPOISON=$ENV{RATPOISON} ? $ENV{RATPOISON} : "',$RATPOISON,'";'; print PERL 'sub command { my $a = "@_"; $a =~ s/(\')/\'\\\\\'\'/g; return `$RATPOISON -c \'$a\'`; }'; # ELISP preamble |