r1540: fix tag name

[debhelper.git] / dh_testdir

diff --git a/dh_testdir b/dh_testdir
index 4e482fce59b7f9ed4b6fa7f19155980066f5f22e..6d9258db66e7e50b5272153b0f0c5d888e14c57e 100755 (executable)
--- a/dh_testdir
+++ b/dh_testdir
@@ -1,14 +1,15 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Checks to make sure we are building the package in the right directory.
 # Tests for the existance of debian/control, and for the existance
 # of any other files you specify on the command line.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+BEGIN { push @INC, "debian", "/usr/share/debhelper" }
+use Dh_Lib;
+init();
 
-for file in debian/control $@; do
-       if [ ! -e "$file" ] ; then
-               error "\"$file\" not found. Are you sure you are in the correct directory?"
-       fi
-done
+foreach $file ('debian/control',@ARGV) {
+       if (! -e $file) {
+               error("\"$file\" not found. Are you sure you are in the correct directory?");
+       }
+}