From: joey <joey>
Date: Tue, 17 Aug 1999 04:58:45 +0000 (+0000)
Subject: r117: Initial Import
X-Git-Tag: debian_version_0_1~119
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ec938d4da786f7fd545b2ca27ebd5ea5c8b45c84;p=debhelper.git

r117: Initial Import
---

diff --git a/Dh_Lib.pm b/Dh_Lib.pm
index 00f2813..e707032 100644
--- a/Dh_Lib.pm
+++ b/Dh_Lib.pm
@@ -131,12 +131,11 @@ sub error { my $message=shift;
 
 # Output a warning.
 sub warning { my $message=shift;
-	print STDERR basename().": $message\n";
+	print STDERR basename($0).": $message\n";
 }
 
-# Returns the basename of the program.
-sub basename {
-	my $fn=$0;
+# Returns the basename of the argument passed to it.
+sub basename { my $fn=shift;
 	$fn=~s:.*/(.*?):$1:;
 	return $fn;
 }
@@ -241,7 +240,7 @@ sub autoscript { my $package=shift; my $script=shift; my $filename=shift; my $se
 	}
 
 	# TODO: do this in perl, perhaps?
-	complex_doit("echo \"# Automatically added by ".basename().">> $outfile");
+	complex_doit("echo \"# Automatically added by ".basename($0).">> $outfile");
 	complex_doit("sed \"$sed\" $infile >> $outfile");
 	complex_doit("echo '# End automatically added section' >> $outfile");
 }
diff --git a/debian/changelog b/debian/changelog
index b124f13..314ea71 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (1.1.11) unstable; urgency=low
+
+  * dh_installchangelogs: added -k flag, that will make it install a symlink
+    to the original name of the upstream changelog.
+
+ -- Joey Hess <joeyh@master.debian.org>  Thu, 20 Aug 1998 15:40:40 -0700
+
 debhelper (1.1.10) unstable; urgency=low
 
   * It's come to my attention that a few packages use filename globbing in