Merge pull request #3 from flimzy/Base.pm
Kill some tab characters; PBP-suggested formatting for :? operator
This commit is contained in:
commit
d83268e448
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user