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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Jul 28 08:23:27 2011
New Revision: 77936

URL: http://svn.debian.org/wsvn/?sc=1&rev=77936
Log:
fix path to packagecheck

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=77936&op=diff
==============================================================================
--- scripts/takeover-for-pkg-perl.sh (original)
+++ scripts/takeover-for-pkg-perl.sh Thu Jul 28 08:23:27 2011
@@ -1,6 +1,8 @@
 #!/bin/sh
 
 set -e -u
+
+MYDIR="$(dirname $0)"
 
 usage() {
     BN=`basename $0`
@@ -74,8 +76,8 @@
     git add debian/changelog
     git commit -m '[takeover-for-pkg-perl] Document the takeover'
 
-    if [ -x $TOP/../scripts/qa/packagecheck ]; then
-        $TOP/../scripts/qa/packagecheck -a -A -C -p "$PACKAGE" "$TOP"
+    if [ -x $MYDIR/qa/packagecheck ]; then
+        $MYDIR/qa/packagecheck -a -A -C -p "$PACKAGE" "$TOP"
     else
         echo "Couldn't find packagecheck, skipping..." >/dev/stderr
     fi