[libconfig-model-dpkg-perl] 09/36: CMD::Copyright: delete old dir entries flagged with '.'
dod at debian.org
dod at debian.org
Sat Oct 17 16:27:11 UTC 2015
This is an automated email from the git hooks/post-receive script.
dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.
commit ba8bbbeee2bf2a4a02cf261609cd3cd400acd289
Author: Dominique Dumont <dod at debian.org>
Date: Wed Sep 30 11:22:11 2015 +0200
CMD::Copyright: delete old dir entries flagged with '.'
---
lib/Config/Model/Dpkg/Copyright.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index 0bc1648..c0b0d2e 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -225,7 +225,7 @@ sub _prune_old_dirs ($self, $h, $old_dirs, $path = [] ) {
}
# delete current directory entry
- my $dir_path = join('/', $path->@*,'*');
+ my $dir_path = join('/', $path->@*,'.');
if ($old_dirs->{$dir_path}) {
say "Removing old entry $dir_path";
delete $old_dirs->{$dir_path};
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git
More information about the Pkg-perl-cvs-commits
mailing list