X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_testdir;h=8e12489a0f28c2c6a3cff26a53e001e3eba5cd0c;hb=fb8f18f4a98669c3b85e1bd7920fbabfc00b886e;hp=4d3c700bea9935db9a14b021533cc201f21fd5aa;hpb=938b66ee19e113785e6655b1c3e73e9003e6464c;p=debhelper.git

diff --git a/dh_testdir b/dh_testdir
index 4d3c700..8e12489 100755
--- a/dh_testdir
+++ b/dh_testdir
@@ -1,14 +1,54 @@
-#!/bin/sh -e
-#
-# 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
-source dh_lib
-
-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
+#!/usr/bin/perl -w
+
+=head1 NAME
+
+dh_testdir - test directory before building Debian package
+
+=cut
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+
+=head1 SYNOPSIS
+
+B<dh_testdir> [S<I<debhelper options>>] [S<I<file> ...>]
+
+=head1 DESCRIPTION
+
+B<dh_testdir> tries to make sure that you are in the correct directory when
+building a Debian package. It makes sure that the file F<debian/control>
+exists, as well as any other files you specify. If not,
+it exits with an error.
+
+=head1 OPTIONS
+
+=over 4
+
+=item I<file> ...
+
+Test for the existence of these files too.
+
+=back
+
+=cut
+
+init();
+inhibit_log();
+
+foreach my $file ('debian/control', @ARGV) {
+	if (! -e $file) {
+		error("\"$file\" not found. Are you sure you are in the correct directory?");
+	}
+}
+
+=head1 SEE ALSO
+
+L<debhelper(7)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut