summaryrefslogtreecommitdiff
path: root/dh_gencontrol
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_gencontrol
parentae0346306694bb2c52193f6352755c223e6e8935 (diff)
r420: big monsta changes
Diffstat (limited to 'dh_gencontrol')
-rwxr-xr-xdh_gencontrol21
1 files changed, 11 insertions, 10 deletions
diff --git a/dh_gencontrol b/dh_gencontrol
index 15e0820..e3cfbfe 100755
--- a/dh_gencontrol
+++ b/dh_gencontrol
@@ -2,29 +2,30 @@
#
# Generate and install the control file. Simple dpkg-gencontrol wrapper.
+use strict;
use Debian::Debhelper::Dh_Lib;
init();
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $EXT=pkgext($PACKAGE);
+foreach my $package (@{$dh{DOPACKAGES}}) {
+ my $tmp=tmpdir($package);
+ my $ext=pkgext($package);
- $changelog=pkgfile($PACKAGE,'changelog');
+ my $changelog=pkgfile($package,'changelog');
if (! $changelog) {
$changelog='debian/changelog';
}
- if ( ! -d '$TMP/DEBIAN' ) {
- doit("install","-o",0,"-g",0,"-d","$TMP/DEBIAN");
+ if ( ! -d "$tmp/DEBIAN" ) {
+ doit("install","-o",0,"-g",0,"-d","$tmp/DEBIAN");
}
# Generate and install control file.
- doit("dpkg-gencontrol","-l$changelog","-isp","-p$PACKAGE",
- "-Tdebian/${EXT}substvars","-P$TMP",@{$dh{U_PARAMS}});
+ doit("dpkg-gencontrol","-l$changelog","-isp","-p$package",
+ "-Tdebian/${ext}substvars","-P$tmp",@{$dh{U_PARAMS}});
# This chmod is only necessary if the user sets the umask to something odd.
- doit("chmod","644","$TMP/DEBIAN/control");
+ doit("chmod","644","$tmp/DEBIAN/control");
- doit("chown","0.0","$TMP/DEBIAN/control");
+ doit("chown","0.0","$tmp/DEBIAN/control");
}