From 2e61621b6bade08db706272fa22b159b3154dfc8 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Tue, 17 Aug 1999 05:14:33 +0000
Subject: [PATCH] r206: Initial Import

---
 debian/changelog     | 6 ++++++
 debian/control       | 2 +-
 dh_installchangelogs | 9 ++++++---
 dh_installmodules    | 2 +-
 doc/README           | 5 +++--
 5 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index dce70aa..d019946 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+debhelper (1.2.67) unstable; urgency=low
+
+  * dh_installmodules: fixed type that made the program not work.
+
+ -- Joey Hess <joeyh@master.debian.org>  Wed, 12 May 1999 00:25:05 -0700
+
 debhelper (1.2.66) unstable; urgency=low
 
   * examples/rules.multi: dh_shlibdeps must be run before dh_gencontrol
diff --git a/debian/control b/debian/control
index 7254be9..3f546b8 100644
--- a/debian/control
+++ b/debian/control
@@ -2,7 +2,7 @@ Source: debhelper
 Section: devel
 Priority: optional
 Maintainer: Joey Hess <joeyh@master.debian.org>
-Standards-Version: 2.5.0.0
+Standards-Version: 2.5.1.0
 
 Package: debhelper
 Architecture: all
diff --git a/dh_installchangelogs b/dh_installchangelogs
index 40a68f3..877aa82 100755
--- a/dh_installchangelogs
+++ b/dh_installchangelogs
@@ -39,15 +39,18 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 	if (! -d "$TMP/usr/doc/$PACKAGE") {
 		doit("install","-d","$TMP/usr/doc/$PACKAGE");
 	}
-	doit("install","-p","-m644",$changelog,"$TMP/usr/doc/$PACKAGE/$changelog_name");
+	doit("install","-o","root","-g","root","-p","-m644",$changelog,
+		"$TMP/usr/doc/$PACKAGE/$changelog_name");
 
 	if ($upstream) {
 		if ($upstream=~m/\.html?$/i) {
 			# HTML changelog
-			doit("install","-p","-m644",$upstream,"$TMP/usr/doc/$PACKAGE/changelog.html");
+			doit("install","-o","root","-g","root","-p","-m644",
+				$upstream,"$TMP/usr/doc/$PACKAGE/changelog.html");
 		}
 		else {
-			doit("install","-p","-m644",$upstream,"$TMP/usr/doc/$PACKAGE/changelog");
+			doit("install","-o","root","-g","root","-p","-m644",
+				$upstream,"$TMP/usr/doc/$PACKAGE/changelog");
 		}
 		if ($dh{K_FLAG}) {
 			# Install symlink to original name of the upstream changelog file.
diff --git a/dh_installmodules b/dh_installmodules
index 264ae9c..1e111e5 100755
--- a/dh_installmodules
+++ b/dh_installmodules
@@ -17,7 +17,7 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 	if ($file) {
 		if (! -e "$TMP/etc/modutils") {
 			doit("install","-d","$TMP/etc/modutils");
-			doit("cp","-m0644",$file,"$TMP/etc/modutils/$PACKAGE");
+			doit("install","-m","0644",$file,"$TMP/etc/modutils/$PACKAGE");
 		}
 		
 		if (! $dh{NOSCRIPTS}) {
diff --git a/doc/README b/doc/README
index c292c2b..77362d3 100644
--- a/doc/README
+++ b/doc/README
@@ -42,10 +42,11 @@ Note that it will be shell code, so you cannot directly use it in a perl
 script. If you would like to embed it into a perl script, here is one way to
 do that (note that I made sure that $1, $2, etc are set with the set command):
 
-my $temp="set -- @ARGV\n" . << `EOF`;
+my $temp="set -e\nset -- @ARGV\n" . << 'EOF';
 #DEBHELPER#
 EOF
-system $temp;
+system ($temp) / 256 == 0
+	or die "Problem with debhelper scripts: $!\n";
 
 Other notes:
 -----------
-- 
2.39.5