dh_testroot

   1 #!/usr/bin/perl -w
   2 #
   3 # Checks to make sure you are root.
   4
   5 BEGIN { push @INC, "debian", "/usr/share/debhelper" }
   6 use Dh_Lib;
   7 init();
   8
   9 # Test for uid = 0, not username of root, becuase
  10 # some people rename root.
  11 if ($< != 0) {
  12         error("You must run this as root.");
  13 }