Author: Martin Michlmayr <tbm@cyrius.com>
Description: Fix a off by one in relpath()
Bug-Debian: http://bugs.debian.org/334088

--- bins-1.1.29.orig/bins
+++ bins-1.1.29/bins
@@ -1151,7 +1151,7 @@
     my $l2 = length($p2);
 
     my $cl = cls($p1, $p2);
-
+    $cl-- if (substr($p2, $cl-1, 1) ne "/");
     my $p2r = substr( $p2, $cl, $l2);
 
     my $p1dc = 0;
