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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Sep 20 13:59:15 2008
New Revision: 25482

URL: http://svn.debian.org/wsvn/?sc=1&rev=25482
Log:
strip \+.+ from version number, otherwise apt-get source fails for packages with binNMUs

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=25482&op=diff
==============================================================================
--- scripts/takeover-for-pkg-perl.sh (original)
+++ scripts/takeover-for-pkg-perl.sh Sat Sep 20 13:59:15 2008
@@ -55,7 +55,8 @@
 *** Taking over $1
 ***
 EOF
-    (cd $TMP; apt-get source -d $1)
+    VER=$(apt-cache policy $1 | grep Candidate | perl -pe 's/^\s+Candidate:\s(.+?)(?:\+.+)?$/$1/')
+    (cd $TMP; apt-get source -d $1=$VER)
 
     svn-inject -l 2 -c 0 -t $TMP/ $TMP/*.dsc $SVN