[libconfig-model-dpkg-perl] 02/11: Dpkg::Copyright::update: pass test args to scan function

[dod at debian.org]

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 986addec93d9a789b640a044e0bc0fa92cb12ecc
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Mar 14 18:05:29 2015 +0100

    Dpkg::Copyright::update: pass test args to scan function
---
 lib/Config/Model/Dpkg/Copyright.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index af9bb73..92235d5 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -16,9 +16,10 @@ use Dpkg::Copyright::Scanner qw/scan_files/;
 use Software::LicenseUtils;
 use Scalar::Util qw/weaken/;
 
-sub update ($self) {
+# $args{in} can contains the output of licensecheck (for tests)
+sub update ($self, %args) {
 
-    my @copyright_data = scan_files();
+    my @copyright_data = scan_files( %args );
 
     my %old_files;
     my %old_split_files;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git