#!/usr/bin/perl -w
#
# Checks to make sure you are root.

BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
use Dh_Lib;
init();

# Test for uid = 0, not username of root, becuase
# some people rename root.
if ($< != 0) {
	error("You must run this as root.");
}