dh_testdir

   1 #!/usr/bin/perl -w
   2 #
   3 # Checks to make sure we are building the package in the right directory.
   4 # Tests for the existance of debian/control, and for the existance
   5 # of any other files you specify on the command line.
   6
   7 BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
   8 use Dh_Lib;
   9 init();
  10
  11 foreach $file ('debian/control',@ARGV) {
  12         if (! -e $file) {
  13                 error("\"$file\" not found. Are you sure you are in the correct directory?");
  14         }
  15 }