@@ -613,9 +613,8 @@ sub _create_rep {

     # Git init

     {

       my @git_init_cmd = $git->cmd_rep($rep, 'init', '--bare');

-      open my $fh, "-|", @git_init_cmd

-        or croak  "Can't open git init --bare:@git_init_cmd";

-      close $fh or croak  "Can't execute git init --bare:@git_init_cmd";

+      system(@git_init_cmd) == 0

+        or croak  "Can't execute git init --bare:@git_init_cmd";

     }

     # Add git-daemon-export-ok

@@ -631,9 +630,8 @@ sub _create_rep {

       '--bare',

       'update-server-info'

     );

-    open my $update_server_info_fh, "-|", @git_update_server_info_cmd

-      or croak "Can't open git --bare update-server-info";

-    close $update_server_info_fh or croak "Can't execute git --bare update-server-info";

+    system(@git_update_server_info_cmd) == 0

+      or croak "Can't execute git --bare update-server-info";

     move("$rep/hooks/post-update.sample", "$rep/hooks/post-update")

       or croak "Can't move post-update";

@@ -659,9 +657,8 @@ sub _create_rep {

       # Git init

       my @git_init_cmd = $git->cmd_rep($temp_work, 'init', '-q');

-      open my $init_fh, "-|", @git_init_cmd

-        or croak "Can't open git init: @git_init_cmd";

-      close $init_fh or croak "Can't execute git init: @git_init_cmd";

+      system(@git_init_cmd) == 0

+        or croak "Can't execute git init: @git_init_cmd";

       # Add README

       my $file = "$temp_work/README.md";

@@ -677,9 +674,8 @@ sub _create_rep {

         'add',

         'README.md'

       );

-      open my $add_fh, "-|", @git_add_cmd

-        or croak "Can't open git add: @git_add_cmd";

-      close $add_fh or croak "Can't execute git add: @git_add_cmd";

+      system(@git_add_cmd) == 0

+        or croak "Can't execute git add: @git_add_cmd";

       # Commit

       my $author = "$user <$user\@localhost>";

@@ -692,9 +688,8 @@ sub _create_rep {

         '-m',

         'first commit'

       );

-      open my $commit_fh, "-|", @git_commit_cmd

-        or croak "Can't open git commit: @git_commit_cmd";

-      close $commit_fh or croak "Can't execute git commit: @git_commit_cmd";

+      system(@git_commit_cmd) == 0

+        or croak "Can't execute git commit: @git_commit_cmd";

       # Push

       {

@@ -708,9 +703,8 @@ sub _create_rep {

         );

         # (This is bad, but --quiet option can't supress in old git)

         my $git_push_cmd = join(' ', @git_push_cmd);

-        open my $commit_fh, "-|", "$git_push_cmd 2> /dev/null"

-          or croak "Can't open git push: @git_push_cmd";

-        close $commit_fh or croak "Can't execute git push: @git_push_cmd";

+        system("$git_push_cmd 2> /dev/null") == 0

+          or croak "Can't execute git push: @git_push_cmd";

       }

     }

   };