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; }
'
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
+}