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/clickframe.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/clickframe.pl')
| -rw-r--r-- | contrib/clickframe.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/clickframe.pl b/contrib/clickframe.pl index e4836b9..4268074 100644 --- a/contrib/clickframe.pl +++ b/contrib/clickframe.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # Copyright (C) 2003,2004 Shawn Betts # @@ -19,10 +19,9 @@ # Make sure the env vars are there $ENV{XBINDKEYS_BUTTONLOC} || die '$XBINDKEYS_BUTTONLOC not bound'; -$ENV{RATPOISON} || die '$RATPOISON not bound'; # Parse the required environment variables -$ratpoison_bin = $ENV{RATPOISON}; +$ratpoison_bin = $ENV{RATPOISON} || 'ratpoison'; ($x_loc,$y_loc) = split(/,/, $ENV{XBINDKEYS_BUTTONLOC}); # Rip the frameset from ratpoison |