Merge pull request #3 from flimzy/Base.pm
Kill some tab characters; PBP-suggested formatting for :? operator
This commit is contained in:
commit
d83268e448
@ -9,11 +9,10 @@ sub new {
|
||||
|
||||
sub tildeexp {
|
||||
my ($self, $path) = @_;
|
||||
$path =~ s{^~([^/]*)} {
|
||||
$1
|
||||
? (getpwnam($1))[7]
|
||||
: ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7])
|
||||
}ex;
|
||||
$path =~ s{^~([^/]*)} {
|
||||
$1 ? (getpwnam($1))[7]
|
||||
: ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7])
|
||||
}ex;
|
||||
return $path;
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user