+ warn "working tree has uncommitted changes"
+ gitver=$(git describe)
+esac
+
+## Is there Debian build equipment?
+case "$debian,$(yesno [ -d $srcpath/debian ])" in
+ yes,no)
+ info "No debian directory found."
+ debian=no debver=none
+ ;;
+ yes,yes)
+ debver=$(dpkg-parsechangelog | sed -n 's/^Version: //p')
+ ;;
+esac
+
+## Check the version number.
+case "$gitver,$debver" in
+ none,* | *,none)
+ ;;
+ *)
+ [ "$gitver" = "$debver" ] ||
+ warn "Git version $gitver doesn't match Debian version $debver"
+ ;;
+esac
+
+## Maybe check ot a copy of the source.
+case "$checkout" in
+ yes)