use List::MoreUtils qw/any zip/;
use DateTime;
use Encode qw/decode/;
-
- use if $^O ne 'MSWin32', 'I18N::Langinfo', => qw/langinfo CODESET/;
- BEGIN {
- no strict 'subs';
- *__owner = defined &langinfo
- ? sub { map { decode(langinfo(CODESET), $_) } (getpwuid $_[0]->path->stat->uid)[6,0] }
- : sub { return qw/OwnEr GroUp/ }
- ;
- }
-
+ use I18N::Langinfo qw/langinfo CODESET/;
use Gitalist::Git::Object::Blob;
use Gitalist::Git::Object::Tree;
use Gitalist::Git::Object::Commit;
}
method _build_owner {
- my ($gecos, $name) = $self->__owner;
+ my ($gecos, $name) = map { decode(langinfo(CODESET), $_) } (getpwuid $self->path->stat->uid)[6,0];
$gecos =~ s/,+$//;
return length($gecos) ? $gecos : $name;
}