This is an automated email from the git hooks/post-receive script. guillem pushed a commit to branch main in repository dpkg.
View the commit online: https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=faecd0fe195a805782cd74cbffaa159d7e4cd37f commit faecd0fe195a805782cd74cbffaa159d7e4cd37f Author: Guillem Jover <[email protected]> AuthorDate: Wed Jun 25 01:16:41 2025 +0200 Test::Dpkg: Do not export directory getters Now that all the all_*_files and all_*_modules functions are in Test::Dpkg, there is no longer any need to export these functions. Make them private, by not exporting them and by prefixing the function names with «_». --- scripts/Test/Dpkg.pm | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/scripts/Test/Dpkg.pm b/scripts/Test/Dpkg.pm index 3ad639458..00dbd7665 100644 --- a/scripts/Test/Dpkg.pm +++ b/scripts/Test/Dpkg.pm @@ -38,8 +38,6 @@ our @EXPORT_OK = qw( all_perl_files all_perl_modules all_pod_modules - test_get_po_dirs - test_get_perl_dirs test_get_data_path test_get_temp_path test_needs_author @@ -63,8 +61,6 @@ our %EXPORT_TAGS = ( all_perl_files all_perl_modules all_pod_modules - test_get_po_dirs - test_get_perl_dirs test_get_data_path test_get_temp_path ) ], @@ -118,7 +114,7 @@ sub test_get_temp_path return $path; } -sub test_get_po_dirs +sub _test_get_po_dirs { if ($test_mode eq 'cpan') { return qw(); @@ -127,7 +123,7 @@ sub test_get_po_dirs } } -sub test_get_perl_dirs +sub _test_get_perl_dirs { if ($test_mode eq 'cpan') { return qw(t lib); @@ -151,7 +147,7 @@ sub _test_get_files sub all_po_files { - return _test_get_files(qr/\.(?:po|pot)$/, [ test_get_po_dirs() ]); + return _test_get_files(qr/\.(?:po|pot)$/, [ _test_get_po_dirs() ]); } sub all_shell_files @@ -176,12 +172,12 @@ sub all_shell_files sub all_perl_files { - return _test_get_files(qr/\.(?:PL|pl|pm|t)$/, [ test_get_perl_dirs() ]); + return _test_get_files(qr/\.(?:PL|pl|pm|t)$/, [ _test_get_perl_dirs() ]); } sub all_perl_modules { - return _test_get_files(qr/\.pm$/, [ test_get_perl_dirs() ]); + return _test_get_files(qr/\.pm$/, [ _test_get_perl_dirs() ]); } sub all_pod_modules @@ -214,7 +210,7 @@ sub all_pod_modules wanted => $scan_perl_modules, no_chdir => 1, ); - find(\%options, test_get_perl_dirs()); + find(\%options, _test_get_perl_dirs()); return @modules; } -- Dpkg.Org's dpkg
