summaryrefslogtreecommitdiff
path: root/dh_installchangelogs
diff options
context:
space:
mode:
authorjoey <joey>2001-02-09 00:57:53 +0000
committerjoey <joey>2001-02-09 00:57:53 +0000
commit053f6f8b4e7431d32511aef209188a084e8c7e79 (patch)
tree209a51c8c8fdbcce25c834198f1b3ef705dcb5b0 /dh_installchangelogs
parentae0346306694bb2c52193f6352755c223e6e8935 (diff)
r420: big monsta changes
Diffstat (limited to 'dh_installchangelogs')
-rwxr-xr-xdh_installchangelogs31
1 files changed, 15 insertions, 16 deletions
diff --git a/dh_installchangelogs b/dh_installchangelogs
index e14eba6..2a82442 100755
--- a/dh_installchangelogs
+++ b/dh_installchangelogs
@@ -7,25 +7,24 @@
# if so, the debian changelog is just installed as "changelog", and it is an
# error to specify an upstream changelog on the command line.
+use strict;
use Debian::Debhelper::Dh_Lib;
init();
-$upstream=shift;
+my $upstream=shift;
if (isnative($dh{MAINPACKAGE}) && defined $upstream) {
error("Cannot specify an upstream changelog for a native debian package.");
}
+my $changelog_name="changelog.Debian";
if (isnative($dh{MAINPACKAGE})) {
$changelog_name='changelog';
}
-else {
- $changelog_name='changelog.Debian';
-}
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $changelog=pkgfile($PACKAGE,"changelog");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+ my $tmp=tmpdir($package);
+ my $changelog=pkgfile($package,"changelog");
if (!$changelog) {
$changelog="debian/changelog";
@@ -35,35 +34,35 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
error("could not find changelog $changelog");
}
- if (! -d "$TMP/usr/share/doc/$PACKAGE") {
+ if (! -d "$tmp/usr/share/doc/$package") {
# If it is a dangling symlink, then don't do anything.
# Think multi-binary packages that depend on each other and
# want to link doc dirs.
- next if -l "$TMP/usr/share/doc/$PACKAGE";
+ next if -l "$tmp/usr/share/doc/$package";
- doit("install","-d","$TMP/usr/share/doc/$PACKAGE");
+ doit("install","-d","$tmp/usr/share/doc/$package");
}
doit("install","-o",0,"-g",0,"-p","-m644",$changelog,
- "$TMP/usr/share/doc/$PACKAGE/$changelog_name");
+ "$tmp/usr/share/doc/$package/$changelog_name");
if ($upstream) {
my $link_to;
if ($upstream=~m/\.html?$/i) {
# HTML changelog
doit("install","-o",0,"-g",0,"-p","-m644",
- $upstream,"$TMP/usr/share/doc/$PACKAGE/changelog.html");
- complex_doit("lynx -dump $upstream > $TMP/usr/share/doc/$PACKAGE/changelog");
+ $upstream,"$tmp/usr/share/doc/$package/changelog.html");
+ complex_doit("lynx -dump $upstream > $tmp/usr/share/doc/$package/changelog");
$link_to='changelog.html';
}
else {
doit("install","-o",0,"-g",0,"-p","-m644",
- $upstream,"$TMP/usr/share/doc/$PACKAGE/changelog");
- $link_to='changelog';
+ $upstream,"$tmp/usr/share/doc/$package/changelog");
+ $link_to='changelog';
}
if ($dh{K_FLAG}) {
# Install symlink to original name of the upstream changelog file.
# Use basename in case original file was in a subdirectory or something.
- doit("ln","-sf",$link_to,"$TMP/usr/share/doc/$PACKAGE/".Debian::Debhelper::Dh_Lib::basename($upstream));
+ doit("ln","-sf",$link_to,"$tmp/usr/share/doc/$package/".basename($upstream));
}
}
}