r428: the never ending podization

[debhelper.git] / dh_testroot

diff --git a/dh_testroot b/dh_testroot
index fcc9b4745c901fbb0fae7b8401d4ff362d85e594..9192f853853dad73fb5587cf8e7a3a89ca75fd88 100755 (executable)
--- a/dh_testroot
+++ b/dh_testroot
@@ -1,10 +1,10 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Checks to make sure you are root.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-source dh_lib
+use strict;
+use Debian::Debhelper::Dh_Lib;
 
-if  [ "`whoami`" != root ]; then
-       error "You must run this as root."
-fi
+if ($< != 0) {
+       error("You must run this as root (or use fakeroot).");
+}