diff options
| author | cos <cos> | 2013-05-26 22:29:04 +0200 |
|---|---|---|
| committer | cos <cos> | 2013-05-26 22:29:04 +0200 |
| commit | 164d3dc35fc82200086c5cecd6b3d2fab236f999 (patch) | |
| tree | 2ea5f5022b8f58b75503ca034cbe1c0f79b56dc4 | |
| parent | fc8e95ed136758206f09c8041195821e3c4193a1 (diff) | |
| download | ratpoison-cr/perl_prefer_envvar.zip | |
Check for and use $RATPOISON during runtime when possible.cr/perl_prefer_envvar
| -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 |