Gentoo Archives: gentoo-perl

From: "David (Sniper) Rigaudiere" <sniper@×××××××××.net>
To: gentoo-perl@l.g.o
Subject: [gentoo-perl] g-cpan.pl
Date: Thu, 12 May 2005 01:56:00
Message-Id: 20050512013634.M88501@rigaudiere.net
- get rid of \t, and use of 4 spaces as perlstyle :)
- get rid of system(mv ...)  use File::Copy::move()

# FIXME Sniper
# the defined() seems mistakes, we want the defined status or ENV values ???
my $tmp_dir       = -d $ENV{TMPDIR}      ? defined($ENV{TMPDIR})      :
$ENV{HOME};
my $ftp_proxy     =    $ENV{ftp_proxy}   ? defined($ENV{ftp_proxy})   : '';
my $http_proxy    =    $ENV{http_proxy}  ? defined($ENV{http_proxy})  : '';
my $user_shell    = -x $ENV{SHELL}       ? defined($ENV{SHELL})       :
DEF_BASH_PROG;




David "Sniper" Rigaudiere
GPG KeyID 0xFF1E982D

-- 
gentoo-perl@g.o mailing list

Replies

Subject Author
Re: [gentoo-perl] g-cpan.pl Michael Cummings <mcummings@g.o>