r1346: fix tag name

[debhelper.git] / dh_testroot

diff --git a/dh_testroot b/dh_testroot
index c704109411d54ffb16c11d1ee9a91fb6ad78ca19..6ce2a1345c336634a5d15b30050ff1768076dab2 100755 (executable)
--- a/dh_testroot
+++ b/dh_testroot
@@ -1,12 +1,13 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Checks to make sure you are root.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+BEGIN { push @INC, "debian", "/usr/share/debhelper" }
+use Dh_Lib;
+init();
 
 # Test for uid = 0, not username of root, becuase
 # some people rename root.
-if  [ "`id -u`" != 0 ]; then
-       error "You must run this as root."
-fi
+if ($< != 0) {
+       error("You must run this as root.");
+}