dh_testversion

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