chiark / gitweb /
svnpath superseded by devscripts
authorColin Watson <cjwatson@chiark.greenend.org.uk>
Tue, 3 Apr 2007 16:20:51 +0000 (16:20 +0000)
committerColin Watson <cjwatson@chiark.greenend.org.uk>
Tue, 3 Apr 2007 16:20:51 +0000 (16:20 +0000)
svnpath [deleted file]

diff --git a/svnpath b/svnpath
deleted file mode 100755 (executable)
index 5eda458..0000000
--- a/svnpath
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl
-# Work out paths in a subversion repository for branches or tags of the
-# given directory. Works on current directory by default, or it can be given
-# a path.
-
-my $wanted=shift;
-
-# Get the svn url of the current directory.
-my $url = `svn info @ARGV| grep -i ^URL: | cut -d ' ' -f 2`;
-if (! length $url) {
-       die "cannot get url";
-}
-
-if (length $wanted) {
-       # Now jut substitute into it.
-       $url=~s!/(?:trunk|branches|tags|upstream)($|/)!/$wanted$1!;
-}
-print $url;