byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Hall 2014-09-16 07:11:54 -05:00
parent b153c0ab99
commit 48bd0f3e0c
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Qpsmtpd/Base.pm
View File

@ -9,11 +9,10 @@ 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;
} }