projects
/
bak-git.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f2df934
)
fix parsing of arguments (6 of them, not 5!)
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 2 Mar 2010 13:55:22 +0000
(14:55 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 2 Mar 2010 13:55:22 +0000
(14:55 +0100)
bak-git-server.pl
patch
|
blob
|
history
diff --git
a/bak-git-server.pl
b/bak-git-server.pl
index
1a074da
..
d6cf7b0
100755
(executable)
--- a/
bak-git-server.pl
+++ b/
bak-git-server.pl
@@
-97,7
+97,7
@@
while (my $client = $server->accept()) {
my $line = <$client>;
chomp($line);
warn "<<< $line\n";
- my ($user,$hostname,$pwd,$command,$rel_path,$message) = split(/\s+/,$line,
5
);
+ my ($user,$hostname,$pwd,$command,$rel_path,$message) = split(/\s+/,$line,
6
);
my $on_host = $1 if $rel_path =~ s/^([^:]+):(.+)$/$2/ && -e $1;
my $path = $rel_path =~ m{^/} ? $rel_path : "$pwd/$rel_path";