diff options
Diffstat (limited to 'dh_gencontrol')
-rwxr-xr-x | dh_gencontrol | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/dh_gencontrol b/dh_gencontrol index 15e08203..e3cfbfe8 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"); } |