This is an automated email from the git hooks/post-receive script.
guillem pushed a commit to branch master
in repository dpkg.
commit 6e3747138b002e7e0a6478d3662b6160824171c2
Author: Guillem Jover <guil...@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 <mat...@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/dpkg/dpkg.git
