[libmodule-package-rdf-perl] 22/64: clean_files for standard documents

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libmodule-package-rdf-perl.

commit 22283c945f01d84ba231aa3c12991067f83446a4
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Mon Jul 23 15:42:25 2012 +0100

    clean_files for standard documents
    
    --HG--
    branch : Module-Package-RDF
---
 lib/Module/Install/Admin/StandardDocuments.pm |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Module/Install/Admin/StandardDocuments.pm b/lib/Module/Install/Admin/StandardDocuments.pm
index ba5c874..6645ad2 100644
--- a/lib/Module/Install/Admin/StandardDocuments.pm
+++ b/lib/Module/Install/Admin/StandardDocuments.pm
@@ -20,7 +20,8 @@ sub clone_standard_documents
 	my $self = shift;
 	foreach ($self->_get_standard_documents)
 	{
-		$self->_copy_standard_document($_);
+		my @file = @{ $self->_copy_standard_document($_) };
+		$self->clean_files(@file) if @file;
 	}
 	1;
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmodule-package-rdf-perl.git