dh_testroot

   1 #!/usr/bin/perl -w
   2 #
   3 # Checks to make sure you are root.
   4
   5 use strict;
   6 use Debian::Debhelper::Dh_Lib;
   7
   8 if ($< != 0) {
   9         error("You must run this as root (or use fakeroot).");
  10 }