Kill some tab characters; and adopt PBP-suggested formatting for :? operator.

This commit is contained in:
Jonathan Hall 2014-09-16 07:11:54 -05:00
parent b153c0ab99
commit 48bd0f3e0c

View File

@ -10,8 +10,7 @@ sub new {
sub tildeexp { sub tildeexp {
my ($self, $path) = @_; my ($self, $path) = @_;
$path =~ s{^~([^/]*)} { $path =~ s{^~([^/]*)} {
$1 $1 ? (getpwnam($1))[7]
? (getpwnam($1))[7]
: ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7]) : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7])
}ex; }ex;
return $path; return $path;