r43755 - /scripts/KGB/client/KGB_sendcommit

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Sep  6 08:10:22 2009
New Revision: 43755

URL: http://svn.debian.org/wsvn/?sc=1&rev=43755
Log:
strip leading shasl from transmitted paths

Modified:
    scripts/KGB/client/KGB_sendcommit

Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=43755&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Sun Sep  6 08:10:22 2009
@@ -198,7 +198,9 @@
 
 sub change2text {
     my $c = shift;
-    return "(" . $c->{action} . $c->{prop_change} . ")" . $c->{path};
+    my $path = $c->{path};
+    $path =~ s,^/,,;
+    return "(" . $c->{action} . $c->{prop_change} . ")" . $path;
 }
 
 # v1 protocol