[Reproducible-commits] [dpkg] 25/33: Test::Dpkg: Refactor perl modules directory list into a new function

[Mattia Rizzolo]

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

mattia pushed a commit to branch master
in repository dpkg.

commit 6e3747138b002e7e0a6478d3662b6160824171c2
Author: Guillem Jover <guillem at debian.org>
Date:   Sat Jul 23 14:17:02 2016 +0200

    Test::Dpkg: Refactor perl modules directory list into a new function
---
 debian/changelog     | 1 +
 scripts/Test/Dpkg.pm | 8 +++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index d616e45..3914c58 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -16,6 +16,7 @@ dpkg (1.18.10) UNRELEASED; urgency=medium
       Thanks to Mattia Rizzolo <mattia at debian.org>. Closes: #832179
     - Rename various private methods and functions with an underscore prefix
       and unified names.
+    - Refactor perl modules directory list into a new function in Test::Dpkg.
   * Documentation:
     - Document Testsuite-Triggers in dsc(5).
     - Fix deb-changes(5) description to talk about .changes instead of .dsc.
diff --git a/scripts/Test/Dpkg.pm b/scripts/Test/Dpkg.pm
index 6d7b1ca..5aa8d44 100644
--- a/scripts/Test/Dpkg.pm
+++ b/scripts/Test/Dpkg.pm
@@ -21,6 +21,7 @@ use warnings;
 our $VERSION = '0.00';
 our @EXPORT_OK = qw(
     all_perl_files
+    test_get_perl_dirs
     test_needs_author
     test_needs_module
     test_needs_command
@@ -40,6 +41,11 @@ use File::Find;
 use IPC::Cmd qw(can_run);
 use Test::More;
 
+sub test_get_perl_dirs
+{
+    return qw(t src/t lib utils/t scripts dselect);
+}
+
 sub all_perl_files
 {
     my @files;
@@ -47,7 +53,7 @@ sub all_perl_files
         push @files, $File::Find::name if m/\.(pl|pm|t)$/;
     };
 
-    find($scan_perl_files, qw(t src/t lib utils/t scripts dselect));
+    find($scan_perl_files, test_get_perl_dirs());
 
     return @files;
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/dpkg.git