From 4e0c986cba3fc37db3101f17a5a3d20d307d32d8 Mon Sep 17 00:00:00 2001 From: Colin Watson Date: Tue, 3 Apr 2007 16:20:51 +0000 Subject: [PATCH] svnpath superseded by devscripts --- svnpath | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100755 svnpath 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; -- 2.30.2