Migrate some calls to use the new install_X subs

Signed-off-by: Niels Thykier <niels@thykier.net>

1 files changed, 5 insertions, 5 deletions

diff --git a/dh_installmenu b/dh_installmenu
index a8ccd78c..a735a64c 100755
--- a/dh_installmenu
+++ b/dh_installmenu
@@ -61,10 +61,10 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 	
 	if ($menu ne '') {
 		if (! -d "$tmp/usr/share/menu") {
-			doit("install","-d","$tmp/usr/share/menu");
+			install_dir("$tmp/usr/share/menu");
 		}
-		doit("install","-p","-m644",$menu,"$tmp/usr/share/menu/$package");
-		
+		install_file($menu,"$tmp/usr/share/menu/$package");
+
 		# Add the scripts if a menu-method file doesn't exist.
 		# The scripts for menu-method handle everything these do, too.
 		if ($menu_method eq "" && ! $dh{NOSCRIPTS}) {
@@ -75,9 +75,9 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
 	if ($menu_method ne '') {
 		if (!-d "$tmp/etc/menu-methods") {
-			doit("install","-d","$tmp/etc/menu-methods");
+			install_dir("$tmp/etc/menu-methods");
 		}
-		doit("install","-p","-m644",$menu_method,"$tmp/etc/menu-methods/$package");
+		install_file($menu_method,"$tmp/etc/menu-methods/$package");
 
 		if (! $dh{NOSCRIPTS}) {
 			autoscript($package,"postinst","postinst-menu-method","s/#PACKAGE#/$package/");