From: Colin Watson Date: Tue, 3 Apr 2007 16:20:51 +0000 (+0000) Subject: svnpath superseded by devscripts X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=commitdiff_plain;h=4e0c986cba3fc37db3101f17a5a3d20d307d32d8 svnpath superseded by devscripts --- diff --git a/svnpath b/svnpath deleted file mode 100755 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;