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

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Sun Dec 28 06:32:23 UTC 2008


Author: ryan52-guest
Date: Sun Dec 28 06:32:20 2008
New Revision: 28652

URL: http://svn.debian.org/wsvn/?sc=1&rev=28652
Log:
use a variable

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=28652&op=diff
==============================================================================
--- scripts/takeover-for-pkg-perl.sh (original)
+++ scripts/takeover-for-pkg-perl.sh Sun Dec 28 06:32:20 2008
@@ -50,13 +50,14 @@
 
 inject_package()
 {
+    PACKAGE=$1
     cat <<EOF
 ***
-*** Taking over $1
+*** Taking over $PACKAGE
 ***
 EOF
-    VER=$(apt-cache policy $1 | grep Candidate | perl -pe 's/^\s+Candidate:\s(.+?)(?:\+.+)?$/$1/')
-    (cd $TMP; apt-get source -d $1=$VER)
+    VER=$(apt-cache policy $PACKAGE | grep Candidate | perl -pe 's/^\s+Candidate:\s(.+?)(?:\+.+)?$/$1/')
+    (cd $TMP; apt-get source -d $PACKAGE=$VER)
 
     svn-inject -l 2 -c 0 -t $TMP/ $TMP/*.dsc $SVN
 
@@ -70,20 +71,21 @@
         TXT="$TXT; Closes: #$RFA -- RFA"
     fi
 
-    dch --no-auto-nmu -i -c $TRUNK/$1/debian/changelog "$TXT"
+    dch --no-auto-nmu -i -c $TRUNK/$PACKAGE/debian/changelog "$TXT"
 
-    svn ci $TRUNK/$1/debian/changelog -m 'Document the takeover'
+    svn ci $TRUNK/$PACKAGE/debian/changelog -m 'Document the takeover'
 
     if [ -x $TRUNK/../scripts/qa/packagecheck ]; then
-        yes | $TRUNK/../scripts/qa/packagecheck -A -C -p "$1" "$TRUNK"
+        yes | $TRUNK/../scripts/qa/packagecheck -A -C -p "$PACKAGE" "$TRUNK"
     else
         echo "Couldn't find packagecheck, skipping..." >/dev/stderr
     fi
 
     if [ -x $TRUNK/../scripts/fill_svn_props ]; then
         cd $TRUNK
-	../scripts/fill_svn_props $1
-	svn ci $1 -m "Set svn props on new package"
+        svn up $PACKAGE
+	../scripts/fill_svn_props $PACKAGE
+	svn ci $PACKAGE -m "Set svn props on new package"
 	cd $OLDPWD
     else
 	echo "Couldn't find fill_svn_props, skipping..." >/dev/stderr




More information about the Pkg-perl-cvs-commits mailing list