| 1 |
- get rid of \t, and use of 4 spaces as perlstyle :) |
| 2 |
- get rid of system(mv ...) use File::Copy::move() |
| 3 |
|
| 4 |
# FIXME Sniper |
| 5 |
# the defined() seems mistakes, we want the defined status or ENV values ??? |
| 6 |
my $tmp_dir = -d $ENV{TMPDIR} ? defined($ENV{TMPDIR}) : |
| 7 |
$ENV{HOME}; |
| 8 |
my $ftp_proxy = $ENV{ftp_proxy} ? defined($ENV{ftp_proxy}) : ''; |
| 9 |
my $http_proxy = $ENV{http_proxy} ? defined($ENV{http_proxy}) : ''; |
| 10 |
my $user_shell = -x $ENV{SHELL} ? defined($ENV{SHELL}) : |
| 11 |
DEF_BASH_PROG; |
| 12 |
|
| 13 |
|
| 14 |
|
| 15 |
|
| 16 |
David "Sniper" Rigaudiere |
| 17 |
GPG KeyID 0xFF1E982D |
| 18 |
|
| 19 |
-- |
| 20 |
gentoo-perl@g.o mailing list |
Archives