dh_testroot


1
2
3
4
5
6
7
8
9
10

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

use strict;
use Debian::Debhelper::Dh_Lib;

if ($< != 0) {
	error("You must run this as root (or use fakeroot).");
}