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 4dade1b3cd2cbb226d8be1245ba60d74c860994b
Author: Dominique Dumont <d...@debian.org>
Date: Wed Jul 6 20:47:30 2016 +0200
cme update ©: really delete obsolete dir entries
Fixed a bug where directory entries in debian/copyright
were not removed: the code to check whether the directory
still exists was wrong.
---
lib/Config/Model/Dpkg/Copyright.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Config/Model/Dpkg/Copyright.pm
b/lib/Config/Model/Dpkg/Copyright.pm
index e013af6..4c52075 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -143,11 +143,11 @@ sub update ($self, %args) {
# warn about old files (data may be redundant or obsolete though)
foreach my $old_path (sort keys %old_split_files) {
# prepare to be able to put back data matching an existing dir
- if ($old_path eq '*' or ($old_path =~ m!(.*)/\*$! and
$current_dir->is_dir($1))) {
+ if ($old_path eq '*' or ($old_path =~ m!(.*)/\*$! and
$current_dir->child($1)->is_dir )) {
$preserved_path{$old_path} = delete $old_split_files{$old_path};
}
else {
- $self->_say( "Note: '$old_path' was removed from new upstream
source" );
+ $self->_say( "Note: '$old_path' was removed (or excluded) from new
upstream source" );
}
}
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
