diff options
Diffstat (limited to 'dh_bugfiles')
| -rwxr-xr-x | dh_bugfiles | 24 |
1 files changed, 7 insertions, 17 deletions
diff --git a/dh_bugfiles b/dh_bugfiles index 2fe9a11e..552c1229 100755 --- a/dh_bugfiles +++ b/dh_bugfiles @@ -10,6 +10,8 @@ use strict; use warnings; use Debian::Debhelper::Dh_Lib; +our $VERSION = DH_BUILTIN_VERSION; + =head1 SYNOPSIS B<dh_bugfiles> [B<-A>] [S<I<debhelper options>>] @@ -103,11 +105,11 @@ foreach my $package (@{$dh{DOPACKAGES}}) { elsif (scalar(keys(%bugfiles)) > 0) { if (-f $dir) { # Move usr/share/bug/$package to usr/share/bug/$package/script - doit("mv", $dir, "${dir}.tmp"); + rename_path($dir, "${dir}.tmp"); install_dir($dir); - doit("mv", "${dir}.tmp", "$dir/script"); + rename_path("${dir}.tmp", "$dir/script"); } - elsif (! -d $dir) { + else { install_dir($dir); } while (my ($type, $srcfile) = each(%bugfiles)) { @@ -121,10 +123,10 @@ foreach my $package (@{$dh{DOPACKAGES}}) { # Ensure that the bug script is executable if (-f $dir) { - chmod 0755, $dir; + reset_perm_and_owner(0755, $dir); } elsif (-f "$dir/script") { - chmod 0755, "$dir/script"; + reset_perm_and_owner(0755, "$dir/script"); } } @@ -141,15 +143,3 @@ This program is a part of debhelper. Modestas Vainius <modestas@vainius.eu> =cut - -# Local Variables: -# indent-tabs-mode: t -# tab-width: 4 -# cperl-indent-level: 4 -# End: - -# Local Variables: -# indent-tabs-mode: t -# tab-width: 4 -# cperl-indent-level: 4 -# End: |