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