diff options
| author | Jérémie Courrèges-Anglas <jca@wxcvbn.org> | 2012-12-17 10:03:39 +0100 |
|---|---|---|
| committer | Jérémie Courrèges-Anglas <jca@wxcvbn.org> | 2013-01-20 19:19:00 +0100 |
| commit | 09a464eb213212ac6538bc4bba9d2e391562b100 (patch) | |
| tree | 8c14b0144bd54f21d34af3613bd13e365a2a293e /contrib/expose.pl | |
| parent | 70ae853c054dd2b1b6cbf2fcffb678331ae3a031 (diff) | |
| download | ratpoison-09a464eb213212ac6538bc4bba9d2e391562b100.zip | |
basic contrib/ cleanup
* (*.pl, rpws) don't hardcode path to Perl but rely on /usr/bin/env
* (allwindows.sh) don't require bash
* (rpshowall.sh) properly handle arguments, use portable shell arithmetic
* (*.sh) use more quotes
* (*.pl, split.sh) use 'ratpoison' if RATPOISON isn't in the environment
(and don't error out)
Diffstat (limited to 'contrib/expose.pl')
| -rw-r--r-- | contrib/expose.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/expose.pl b/contrib/expose.pl index 7f0600b..0a7127e 100644 --- a/contrib/expose.pl +++ b/contrib/expose.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Maintainer: Trent Buck <[EMAIL PROTECTED]> # License: Public Domain @@ -24,7 +24,7 @@ require "assert.pl"; #used for validation. use strict; my $N_LIMIT = 2; my $LIMIT = 0.01; #smaller number --> slower, but more accurate -my $RATPOISON = 'ratpoison'; +my $RATPOISON = $ENV{RATPOISON} || 'ratpoison'; #-- main ----------------------------------------------------------------------- |