Bump version to 0.004002 and update Changes.

[catagits/Gitalist.git] / lib / Gitalist / Git / Repository.pm

diff --git a/lib/Gitalist/Git/Repository.pm b/lib/Gitalist/Git/Repository.pm
index 602126b..cb16eb2 100644 (file)
--- a/lib/Gitalist/Git/Repository.pm
+++ b/lib/Gitalist/Git/Repository.pm
@@ -5,13 +5,15 @@ class Gitalist::Git::Repository with (Gitalist::Git::HasUtils, Gitalist::Git::Se
 
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
     use MooseX::Types::Moose          qw/Str Maybe Bool HashRef ArrayRef/;
-    use Gitalist::Git::Types          qw/SHA1 DateTime Dir/;
+    use Gitalist::Git::Types          qw/SHA1 Dir/;
+    use MooseX::Types::DateTime       qw/ DateTime /;
 
     use Moose::Autobox;
     use aliased 'DateTime' => 'DT';
     use List::MoreUtils qw/any zip/;
     use Encode          qw/decode/;
-    use I18N::Langinfo  qw/langinfo CODESET/;
+
+    use if $^O ne 'MSWin32' => 'I18N::Langinfo', qw/langinfo CODESET/;
 
     use Gitalist::Git::Object::Blob;
     use Gitalist::Git::Object::Tree;
@@ -216,6 +218,7 @@ class Gitalist::Git::Repository with (Gitalist::Git::HasUtils, Gitalist::Git::Se
         my $description = "";
         eval {
             $description = $self->path->file('description')->slurp;
+            utf8::decode($description);
             chomp $description;
         };
         $description = "Unnamed repository, edit the .git/description file to set a description"
@@ -224,7 +227,9 @@ class Gitalist::Git::Repository with (Gitalist::Git::HasUtils, Gitalist::Git::Se
     }
 
     method _build_owner {
-        my ($gecos, $name) = map { decode(langinfo(CODESET), $_) } (getpwuid $self->path->stat->uid)[6,0];
+        return 'system' if $^O =~ 'MSWin32';
+
+        my ($gecos, $name) = map { decode(langinfo(CODESET()), $_) } (getpwuid $self->path->stat->uid)[6,0];
         $gecos =~ s/,+$//;
         return length($gecos) ? $gecos : $name;
     }