fix commit

diff --git a/bak-git-server.pl b/bak-git-server.pl
index 8343d7a..aea05fe 100755 (executable)
--- a/bak-git-server.pl
+++ b/bak-git-server.pl
@@ -123,7 +123,8 @@ while (my $client = $server->accept()) {
                print $client git 'add', "$hostname/$path";
        } elsif ( $command eq 'commit' ) {
                pull_changes $hostname;
-               print $client git( 'commit', '-m', $message,
+               $message =~ s/'/\\'/g;
+               print $client git( "commit -m '$message' ",
                        ( -e "$hostname/$path" ? "$hostname/$path" : $hostname )
                );
        } elsif ( $command =~ m{(diff|status|log|ch)} ) {