r35464 - /scripts/takeover-for-pkg-perl.sh

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Sat May 16 02:28:39 2009
New Revision: 35464

URL: http://svn.debian.org/wsvn/?sc=1&rev=35464
Log:
make -t optional, if it can be guessed

Modified:
    scripts/takeover-for-pkg-perl.sh

Modified: scripts/takeover-for-pkg-perl.sh
URL: http://svn.debian.org/wsvn/scripts/takeover-for-pkg-perl.sh?rev=35464&op=diff
==============================================================================
--- scripts/takeover-for-pkg-perl.sh (original)
+++ scripts/takeover-for-pkg-perl.sh Sat May 16 02:28:39 2009
@@ -8,7 +8,7 @@
 Usage: $BN [options] package...
 
 Options:
-    -t path     (required) Location of checked out SVN trunk
+    -t path     (required if trunk doesn't exist in the same dir as scripts) Location of checked out SVN trunk
     -s URL      SVN trunk URL (default $SVN)
     -m URL      URL to a message in which the previous maintainer requests the
                 takeover
@@ -25,6 +25,12 @@
 TRUNK=''
 MAIL=''
 RFA=''
+
+POSSIBLE_TRUNK="$(readlink -f "$(dirname "$(readlink -f $0)")/../trunk")"
+
+if [ -d "$POSSIBLE_TRUNK" ]; then
+    TRUNK="$POSSIBLE_TRUNK"
+fi
 
 while getopts t:s:m:a:h o; do
     case $o in