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 use Debian::Debhelper::Dh_Lib;
   8 init();
   9
  10 foreach $file (Debian::Debhelper::Dh_Lib::getcontrol(),@ARGV) {
  11         if (! -e $file) {
  12                 error("\"$file\" not found. Are you sure you are in the correct directory?");
  13         }
  14 }