t-git-get-ref () {
local ref=$1
- git-show-ref -d $1 | perl -ne '
+ git show-ref -d $1 | perl -ne '
$x = $1 if m#^(\w+) \Q'$1'\E(?:\^\{\})?$#;
END { print "$x\n" if length $x; }
'
}
t-pushed-good () {
+ local branch=$1
t-ref-dsc-dgit
t-refs-same-more \
- refs/heads/master \
+ refs/heads/$branch \
refs/tags/debian/$v \
refs/remotes/dgit/dgit/sid
t-refs-notexist \
print $ref,"\n";
' <$tmp/incoming/${p}_${v}.dsc >$tmp/t.ref1
}
+
+t-apply-diff () {
+ local v1=$1
+ local v2=$2
+ (cd $troot/pkg-srcs; debdiff ${p}_${v1}.dsc ${p}_${v2}.dsc) \
+ | patch -p1 -u
+}