Merge pull request #3 from flimzy/Base.pm

Kill some tab characters; PBP-suggested formatting for :? operator
This commit is contained in:
Matt Simerson 2014-09-16 07:56:43 -07:00
commit d83268e448

View File

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