dh_testversion

   1 #!/usr/bin/perl -w
   2 #
   3 # Debhelper version check.
   4
   5 use Debian::Debhelper::Dh_Lib;
   6 use Debian::Debhelper::Dh_Version; # contains the version number of debhelper.
   7 init();
   8
   9 my($compare, $ver);
  10
  11 if ($#ARGV > 0) {
  12         $compare=shift;
  13         $ver=shift;
  14 }
  15 elsif ($#ARGV eq 0) {
  16         $compare=">=";
  17         $ver=shift;
  18 }
  19
  20 if (defined $compare and defined $ver) {
  21         system('dpkg','--compare-versions',$Debian::Debhelper::Dh_Version::version,$compare,$ver) == 0 ||
  22                 error("debhelper version $Debian::Debhelper::Dh_Version::version is installed, but a version $compare $ver is needed to build this package.");
  23 }