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 |