Merge remote branch 'shadowcat/master'

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

diff --git a/lib/Gitalist/Git/Util.pm b/lib/Gitalist/Git/Util.pm
index dcf1e78..9638b8c 100644 (file)
--- a/lib/Gitalist/Git/Util.pm
+++ b/lib/Gitalist/Git/Util.pm
@@ -3,7 +3,7 @@ use MooseX::Declare;
 class Gitalist::Git::Util {
     use File::Which;
     use Git::PurePerl;
-    use IPC::Run qw(run);
+    use IPC::Run qw(run start);
     use Symbol qw(geniosym);
     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
 
@@ -52,7 +52,7 @@ EOR
         unshift @args, ('--git-dir' => $self->gitdir)
             if $self->has_repository;
 #        print STDERR 'RUNNING: ', $self->_git, qq[ @args], $/;
-        run [$self->_git, @args],
+        start [$self->_git, @args],
             '<pipe', $in,
             '>pipe', $out,
             '2>pipe', $err
@@ -73,6 +73,14 @@ EOR
 
 __END__
 
+=head1 NAME
+
+Gitalist::Git::Util - Class for utilities to run git or deal with Git::PurePerl
+
+=head1 SEE ALSO
+
+L<Git::PurePerl>.
+
 =head1 AUTHORS
 
 See L<Gitalist> for authors.