[libfile-util-perl] 01/02: Imported Upstream version 4.161950
Nick Morrott
nickm-guest at moszumanska.debian.org
Tue Aug 2 20:22:46 UTC 2016
This is an automated email from the git hooks/post-receive script.
nickm-guest pushed a commit to branch master
in repository libfile-util-perl.
commit b3f469577c97919eb1f01d2aaef4803bb7546b32
Author: Nick Morrott <knowledgejunkie at gmail.com>
Date: Tue Aug 2 21:13:27 2016 +0100
Imported Upstream version 4.161950
---
Build.PL | 2 +-
Changes | 9 +++
MANIFEST | 1 +
META.json | 114 +++++++++++++++++-----------------
META.yml | 94 ++++++++++++++--------------
Makefile.PL | 2 +-
NEWS | 5 ++
README | 2 +-
SIGNATURE | 65 +++++++++----------
lib/File/Util.pm | 8 ++-
lib/File/Util/Cookbook.pod | 2 +-
lib/File/Util/Definitions.pm | 4 +-
lib/File/Util/Exception.pm | 4 +-
lib/File/Util/Exception/Diagnostic.pm | 4 +-
lib/File/Util/Exception/Standard.pm | 4 +-
lib/File/Util/Interface/Classic.pm | 4 +-
lib/File/Util/Interface/Modern.pm | 4 +-
lib/File/Util/Manual.pod | 2 +-
lib/File/Util/Manual/Examples.pod | 2 +-
t/021_list_dir_regression.t | 37 +++++++++++
xt/author/no-tabs.t | 1 +
21 files changed, 213 insertions(+), 157 deletions(-)
diff --git a/Build.PL b/Build.PL
index 1c0db7e..98ffbc5 100644
--- a/Build.PL
+++ b/Build.PL
@@ -20,7 +20,7 @@ my %module_build_args = (
"Tommy Butler"
],
"dist_name" => "File-Util",
- "dist_version" => "4.161200",
+ "dist_version" => "4.161950",
"license" => "perl",
"module_name" => "File::Util",
"recommends" => {
diff --git a/Changes b/Changes
index 367b194..d7e4443 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,14 @@
Revision history for Perl extension File::Util.pm
+4.161950 2016-07-12
+ - This release fixes a critical bug in the list_dir() method, detailed at
+ https://rt.cpan.org/Public/Bug/Display.html?id=115511
+ - Regression test added to catch the failure condition
+ - NOTE: No major code or featureset changes included as part of this release,
+ therefore it is still deemed "stable", as no significant changes to the code
+ have been made beyond a two line bugfix that remedies the problem that
+ caused the list_dir() method to fail under certain conditions.
+
4.161200 2016-04-29
- The previous TRIAL release passes muster by cpantesters. This is
now released as a STABLE dist, although more features are planned in
diff --git a/MANIFEST b/MANIFEST
index cd81a9f..2b7832d 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -69,6 +69,7 @@ t/017_make_dir_list_dir.t
t/018_list_dir_advancedmatch.t
t/019_load_dir.t
t/020_write_file.t
+t/021_list_dir_regression.t
t/bin
t/txt
xt/author/critic.t
diff --git a/META.json b/META.json
index 25bed0d..8e5b272 100644
--- a/META.json
+++ b/META.json
@@ -98,31 +98,31 @@
"provides" : {
"File::Util" : {
"file" : "lib/File/Util.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Definitions" : {
"file" : "lib/File/Util/Definitions.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Exception" : {
"file" : "lib/File/Util/Exception.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Exception::Diagnostic" : {
"file" : "lib/File/Util/Exception/Diagnostic.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Exception::Standard" : {
"file" : "lib/File/Util/Exception/Standard.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Interface::Classic" : {
"file" : "lib/File/Util/Interface/Classic.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
},
"File::Util::Interface::Modern" : {
"file" : "lib/File/Util/Interface/Modern.pm",
- "version" : "4.161200"
+ "version" : "4.161950"
}
},
"release_status" : "stable",
@@ -138,7 +138,7 @@
"web" : "https://github.com/tommybutler/file-util"
}
},
- "version" : "4.161200",
+ "version" : "4.161950",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.022001"
@@ -317,16 +317,57 @@
"version" : "0.021"
},
{
- "class" : "Dist::Zilla::Plugin::Test::Version",
- "name" : "@TestingMania/Test::Version",
- "version" : "1.05"
- },
- {
"class" : "Dist::Zilla::Plugin::Test::CPAN::Meta::JSON",
"name" : "@TestingMania/Test::CPAN::Meta::JSON",
"version" : "0.004"
},
{
+ "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
+ "name" : "@TestingMania/PodSyntaxTests",
+ "version" : "5.042"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Synopsis",
+ "name" : "@TestingMania/Test::Synopsis",
+ "version" : "2.000006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MojibakeTests",
+ "name" : "@TestingMania/MojibakeTests",
+ "version" : "0.8"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Kwalitee",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::Kwalitee" : {
+ "filename" : "xt/release/kwalitee.t",
+ "skiptest" : []
+ }
+ },
+ "name" : "@TestingMania/Test::Kwalitee",
+ "version" : "2.12"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Perl::Critic",
+ "name" : "@TestingMania/Test::Perl::Critic",
+ "version" : "3.000"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaTests",
+ "name" : "@TestingMania/MetaTests",
+ "version" : "5.042"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
+ "name" : "@TestingMania/Test::CPAN::Changes",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::DistManifest",
+ "name" : "@TestingMania/Test::DistManifest",
+ "version" : "2.000005"
+ },
+ {
"class" : "Dist::Zilla::Plugin::Test::NoTabs",
"config" : {
"Dist::Zilla::Plugin::Test::NoTabs" : {
@@ -369,50 +410,9 @@
"version" : "2.054"
},
{
- "class" : "Dist::Zilla::Plugin::Test::Perl::Critic",
- "name" : "@TestingMania/Test::Perl::Critic",
- "version" : "3.000"
- },
- {
- "class" : "Dist::Zilla::Plugin::Test::DistManifest",
- "name" : "@TestingMania/Test::DistManifest",
- "version" : "2.000005"
- },
- {
- "class" : "Dist::Zilla::Plugin::Test::Synopsis",
- "name" : "@TestingMania/Test::Synopsis",
- "version" : "2.000006"
- },
- {
- "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
- "name" : "@TestingMania/PodSyntaxTests",
- "version" : "5.042"
- },
- {
- "class" : "Dist::Zilla::Plugin::MojibakeTests",
- "name" : "@TestingMania/MojibakeTests",
- "version" : "0.8"
- },
- {
- "class" : "Dist::Zilla::Plugin::MetaTests",
- "name" : "@TestingMania/MetaTests",
- "version" : "5.042"
- },
- {
- "class" : "Dist::Zilla::Plugin::Test::Kwalitee",
- "config" : {
- "Dist::Zilla::Plugin::Test::Kwalitee" : {
- "filename" : "xt/release/kwalitee.t",
- "skiptest" : []
- }
- },
- "name" : "@TestingMania/Test::Kwalitee",
- "version" : "2.12"
- },
- {
- "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
- "name" : "@TestingMania/Test::CPAN::Changes",
- "version" : "0.009"
+ "class" : "Dist::Zilla::Plugin::Test::Version",
+ "name" : "@TestingMania/Test::Version",
+ "version" : "1.05"
},
{
"class" : "Dist::Zilla::Plugin::Test::PodSpelling",
diff --git a/META.yml b/META.yml
index 47012b6..140074f 100644
--- a/META.yml
+++ b/META.yml
@@ -35,25 +35,25 @@ name: File-Util
provides:
File::Util:
file: lib/File/Util.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Definitions:
file: lib/File/Util/Definitions.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Exception:
file: lib/File/Util/Exception.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Exception::Diagnostic:
file: lib/File/Util/Exception/Diagnostic.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Exception::Standard:
file: lib/File/Util/Exception/Standard.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Interface::Classic:
file: lib/File/Util/Interface/Classic.pm
- version: '4.161200'
+ version: '4.161950'
File::Util::Interface::Modern:
file: lib/File/Util/Interface/Modern.pm
- version: '4.161200'
+ version: '4.161950'
recommends:
Unicode::UTF8: '0.58'
requires:
@@ -71,7 +71,7 @@ resources:
bugtracker: https://rt.cpan.org/Dist/Display.html?Name=File%3A%3AUtil
homepage: https://github.com/tommybutler/file-util/wiki
repository: git://github.com/tommybutler/file-util.git
-version: '4.161200'
+version: '4.161950'
x_Dist_Zilla:
perl:
version: '5.022001'
@@ -210,14 +210,46 @@ x_Dist_Zilla:
name: Test::ReportPrereqs
version: '0.021'
-
- class: Dist::Zilla::Plugin::Test::Version
- name: '@TestingMania/Test::Version'
- version: '1.05'
- -
class: Dist::Zilla::Plugin::Test::CPAN::Meta::JSON
name: '@TestingMania/Test::CPAN::Meta::JSON'
version: '0.004'
-
+ class: Dist::Zilla::Plugin::PodSyntaxTests
+ name: '@TestingMania/PodSyntaxTests'
+ version: '5.042'
+ -
+ class: Dist::Zilla::Plugin::Test::Synopsis
+ name: '@TestingMania/Test::Synopsis'
+ version: '2.000006'
+ -
+ class: Dist::Zilla::Plugin::MojibakeTests
+ name: '@TestingMania/MojibakeTests'
+ version: '0.8'
+ -
+ class: Dist::Zilla::Plugin::Test::Kwalitee
+ config:
+ Dist::Zilla::Plugin::Test::Kwalitee:
+ filename: xt/release/kwalitee.t
+ skiptest: []
+ name: '@TestingMania/Test::Kwalitee'
+ version: '2.12'
+ -
+ class: Dist::Zilla::Plugin::Test::Perl::Critic
+ name: '@TestingMania/Test::Perl::Critic'
+ version: '3.000'
+ -
+ class: Dist::Zilla::Plugin::MetaTests
+ name: '@TestingMania/MetaTests'
+ version: '5.042'
+ -
+ class: Dist::Zilla::Plugin::Test::CPAN::Changes
+ name: '@TestingMania/Test::CPAN::Changes'
+ version: '0.009'
+ -
+ class: Dist::Zilla::Plugin::Test::DistManifest
+ name: '@TestingMania/Test::DistManifest'
+ version: '2.000005'
+ -
class: Dist::Zilla::Plugin::Test::NoTabs
config:
Dist::Zilla::Plugin::Test::NoTabs:
@@ -250,41 +282,9 @@ x_Dist_Zilla:
name: '@TestingMania/Test::Compile'
version: '2.054'
-
- class: Dist::Zilla::Plugin::Test::Perl::Critic
- name: '@TestingMania/Test::Perl::Critic'
- version: '3.000'
- -
- class: Dist::Zilla::Plugin::Test::DistManifest
- name: '@TestingMania/Test::DistManifest'
- version: '2.000005'
- -
- class: Dist::Zilla::Plugin::Test::Synopsis
- name: '@TestingMania/Test::Synopsis'
- version: '2.000006'
- -
- class: Dist::Zilla::Plugin::PodSyntaxTests
- name: '@TestingMania/PodSyntaxTests'
- version: '5.042'
- -
- class: Dist::Zilla::Plugin::MojibakeTests
- name: '@TestingMania/MojibakeTests'
- version: '0.8'
- -
- class: Dist::Zilla::Plugin::MetaTests
- name: '@TestingMania/MetaTests'
- version: '5.042'
- -
- class: Dist::Zilla::Plugin::Test::Kwalitee
- config:
- Dist::Zilla::Plugin::Test::Kwalitee:
- filename: xt/release/kwalitee.t
- skiptest: []
- name: '@TestingMania/Test::Kwalitee'
- version: '2.12'
- -
- class: Dist::Zilla::Plugin::Test::CPAN::Changes
- name: '@TestingMania/Test::CPAN::Changes'
- version: '0.009'
+ class: Dist::Zilla::Plugin::Test::Version
+ name: '@TestingMania/Test::Version'
+ version: '1.05'
-
class: Dist::Zilla::Plugin::Test::PodSpelling
config:
diff --git a/Makefile.PL b/Makefile.PL
index 0e8bbfb..9e40c60 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -50,7 +50,7 @@ my %WriteMakefileArgs = (
"blib" => "1.01",
"utf8" => 0
},
- "VERSION" => "4.161200",
+ "VERSION" => "4.161950",
"test" => {
"TESTS" => "t/*.t"
}
diff --git a/NEWS b/NEWS
index a5b72aa..08389d4 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,10 @@
NEWS for File::Util
+Tue Jul 12 18:37:17 CDT 2016
+ Releasing this bug fix to CPAN immediately. Having changed only one line
+ of code, and knowing the criticality of the bug, I'm releasing this as
+ GA and skipping the ...-TRIAL dist formalities. Regression test also added.
+
Thu Jun 6 23:11:39 CDT 2013
Since Sat Mar 2 01:13:46 CST 2013, 580 test runs from the CPAN testers
have had 100% complete PASSes. I'm releasing the code as-is, as
diff --git a/README b/README
index 99248d0..6538248 100644
--- a/README
+++ b/README
@@ -1,7 +1,7 @@
This archive contains the distribution File-Util,
-version 4.161200:
+version 4.161950:
Easy, versatile, portable file handling
diff --git a/SIGNATURE b/SIGNATURE
index f9de9b3..11c67f5 100644
--- a/SIGNATURE
+++ b/SIGNATURE
@@ -15,18 +15,18 @@ not run its Makefile.PL or Build.PL.
Hash: SHA1
SHA1 76a08172c2a635f36337c548aa80600ef0346159 AUTHORS
-SHA1 78acf53a11298a030542141a64f26eaf3a56a546 Build.PL
+SHA1 81f77e897bb97e83fd98942f32134d8b5cd80cb9 Build.PL
SHA1 bb2492d6fbfa8b7d456f2b8986db4533908dc097 COPYING
-SHA1 d256fec0dd41b955d475de4c9aeb12474c3a36c8 Changes
+SHA1 13b2c067638ae4b53cedbea76b1500a706f4001b Changes
SHA1 027631fb6bcf8560acb0ecd72b9af91145b9f73d INSTALL
SHA1 c1841a7e92c0b7b35a03ebb1502bd273f94c1c37 LICENSE
-SHA1 ce1c4849e84e854dd6d49a0ed933369206eecc0f MANIFEST
+SHA1 1973737d8495d352271feb22edfe695d541cebda MANIFEST
SHA1 8dd8a3dfd3c3166f12bbb2cfff232bb6a0e55ff6 MANIFEST.SKIP
-SHA1 44b17912bdefd782a2454e9c251b43f10aca2c19 META.json
-SHA1 96f43522cd1877d1ee76ebe21216bdae50c0d1fa META.yml
-SHA1 086feffaa1b6be984e73c0926a6d9e5a381640d5 Makefile.PL
-SHA1 f532dfd71c080d85c0acd1d5e7aff4209b32a839 NEWS
-SHA1 a508a7a36cab59500b93f322df2ea6da7be0795a README
+SHA1 2dab00015ee3fd9a0da3e83d9066212d748f3b21 META.json
+SHA1 f642bd79cc2e542d1f299681a8bff81ba7177b72 META.yml
+SHA1 89b53e371d01892174a448b8313b5422ca76d066 Makefile.PL
+SHA1 f0cdd5fbbcf49a0e071c0429356577e307a3cced NEWS
+SHA1 fba4484a8ab72480f27239bf50d99d9677f7e6de README
SHA1 15b388c2e3fd1219285b9d8066bb0d6378b83ab0 TODO
SHA1 34399e61cb0505e41526448699bed0b4d12f35af dist.ini
SHA1 874ad198d5fd2f480c9449f7dc0359442f3ad7d5 examples/batch_file_rename.pl
@@ -45,16 +45,16 @@ SHA1 ae9afb8f97c188031c0e74ec60b627584e9fa383 examples/recursively_remove_a_dire
SHA1 17a1a90b90e22fd0b5780fbef6026a16c448ff51 examples/retry_open_handle.pl
SHA1 70177b252e54feeb078e5fab9c6de0ad43cba784 examples/wrap_the_lines_in_a_file.pl
SHA1 3ef56e2a76269416d29b0640406bac70a2be0a51 examples/write_or_append_to_a_file.pl
-SHA1 0d627c8343ded987ab4e0a3c6aec8d282b8e3eb3 lib/File/Util.pm
-SHA1 c1914374d7a086ae97ef9d436ab237661ca7a1bd lib/File/Util/Cookbook.pod
-SHA1 1a43ce4efbdae24bc9decdfd26a1d52316059a47 lib/File/Util/Definitions.pm
-SHA1 9e8c39a2306a13d39312e4d282ce5ee4519bfdf0 lib/File/Util/Exception.pm
-SHA1 b71ee9a3d24a7b292bc5b24383a5e212cfead468 lib/File/Util/Exception/Diagnostic.pm
-SHA1 750ed9892038759b4f65952f283b865b5e701467 lib/File/Util/Exception/Standard.pm
-SHA1 dc89336cd3e50d89bfc45a268a77f95b824a7a6c lib/File/Util/Interface/Classic.pm
-SHA1 f746f1a3dab6a6ae0fe85f625083dd4c3d66e721 lib/File/Util/Interface/Modern.pm
-SHA1 3f4cbde3c8c02188941c76a231d1b070c858d39f lib/File/Util/Manual.pod
-SHA1 122bc985e9a7eb0f504324fc6e3f761d38acbbcb lib/File/Util/Manual/Examples.pod
+SHA1 d89b2f44330f56484fd5464457d4b775734da007 lib/File/Util.pm
+SHA1 02148d57c6b2e6035b1e8f4359c77c4fdb686701 lib/File/Util/Cookbook.pod
+SHA1 d3ef27d322849c5b7176c216480955fedab4d5ff lib/File/Util/Definitions.pm
+SHA1 8df8c036b4e5459d4ec1d4397afb6241b3803bf0 lib/File/Util/Exception.pm
+SHA1 27a355674ab20a967cc98da8accd96aa7bc2b610 lib/File/Util/Exception/Diagnostic.pm
+SHA1 1f48c4d796b3ab09106db8dac98617c0cf317652 lib/File/Util/Exception/Standard.pm
+SHA1 e19e53c4861ece598d8e771be86c61021382f5d8 lib/File/Util/Interface/Classic.pm
+SHA1 6f84f33d52e26f33924ff909c09c67aafb97b598 lib/File/Util/Interface/Modern.pm
+SHA1 c517ac26526ece496aef4851f4bd7ffa6b6c5de0 lib/File/Util/Manual.pod
+SHA1 82035f9fd041340b741f6338dcda3355b8ffd262 lib/File/Util/Manual/Examples.pod
SHA1 9d689f1a8aee3f115cd06b340f5557bdeac5a83f performance/bench_listdir.pl
SHA1 07a1463fd7053e77e5b9d5b16bfe8de0cd0909b7 performance/bench_load_time.pl
SHA1 0c6b2574d244e23d247400ecc0d4aedf2e940090 performance/profile_listdir.pl
@@ -83,11 +83,12 @@ SHA1 9aba8983f72fc09383746da9e1d72024d1f12d7f t/017_make_dir_list_dir.t
SHA1 6be9177ea6cca93f1c28b956f25d90c3cc3d66c3 t/018_list_dir_advancedmatch.t
SHA1 43309f57e58b9662c464b0e6ac3fd36ccd637032 t/019_load_dir.t
SHA1 e9cc72017286700ecd33fd102ea0f572661d11b5 t/020_write_file.t
+SHA1 f1bb65f231c00438219e890ceceed5bd96860a00 t/021_list_dir_regression.t
SHA1 cac36f84f0db21cf6fa980a9b31ca3453a84f8e4 t/bin
SHA1 65821dbdac86467eb04a9ad83dfad0600dfabdd9 t/txt
SHA1 5bd500053b03b9a17b570fb39ca2e5ee959540dc xt/author/critic.t
SHA1 f2c40e917e02088703731272f86cbb906ab19eb3 xt/author/mojibake.t
-SHA1 d41ae496e44c8914308c4eedbed8737a050676ac xt/author/no-tabs.t
+SHA1 d002c9f0d6f3ad548f528b8668e6af40314030fd xt/author/no-tabs.t
SHA1 a6d8370909ec0e0755d4bd691eb81d722cf94430 xt/author/pod-coverage.t
SHA1 e32dceb64d9c02fd202c399aa3ff1e5315d22c96 xt/author/pod-spell.t
SHA1 f0c18c75922a1516ae7a5ec5d391b31fd757f0bd xt/author/pod-syntax.t
@@ -106,17 +107,17 @@ SHA1 34513f89a70b96f6412fe2ef0ad4d475e8cac66c xt/release/synopsis.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1
-iQIcBAEBAgAGBQJXI7uWAAoJEGe9xj410/4d3acP/2NnOVfTgbPXsGc1a5j/+fxn
-a7BwCqBr0FgU4zQfN+Txn93dz/8pybDb2VS4+cQrOf9mWHqfMNMZHMeiskAZIDu9
-ylnmy8N2TKwiwBmFKWAQ7Xk2TriPw6B46+cCdK7eI4LZz5xdA1goTxa3aQe855bq
-9liGTmcLjWSc8fmihFEoE41YrN3zr++CuPl41i/knFaKAU2igvv0bYwM0av1yz+9
-5Pd+EoJHGWwL+JgzOQoWh62MrLHDnycy0qWoC/RTjBuqybadAHFBBhJ361FMOhxV
-+uFPE+E0KLbZSF8rzlfq4qioDy1SByBrRSpY4a/P68RwM+BNVVnQO+gDQwAfFGH6
-lPTu8J1D908klVzxcE0lSTYc5J/gklMQybeWNSV1v4uX8OAJROqa+bxWghT0bvif
-cGcUjYQ9mNV34MxGTAwcq6nJ/WBrmTDdpWNJfKFwJzGF/PHomfJiZvg4gThMkX/3
-T4qcZ4U7HwK7CXQyNFS5XdVrilcug81dcw05ZmZTBF5VT6x1U2mcArb5pJ5FKG/l
-7mHZ7kecrcYyG0EQA2LD4yb9BY7rOY9Z2MQFarV/M1gjHG6hRvgZi+kf1Acyn9le
-JyTX5EN0yxnTo9NTcNuVyMkoK0spQWzoet8hIzgQ7U0DiYBcwlR1FYGIoldmjyAR
-OZ2XxXgp8q4Wes2Ek1el
-=P6gv
+iQIcBAEBAgAGBQJXhYziAAoJEGe9xj410/4d9GsP/0h58/0MMkzL6yvwBJHxCcHY
+Ts/ialILo9uRqWXT4+YBfkYjRb3Mh6NOIyQpKMEQPYT9YH6K5XbOwPjN86zxwEWy
+2x3GPyPJTQLWYPe1nTz9xzOAb+zu9sU7a2T3wbPBZr0gzokXEHBMBYMjRH4fO+pt
+hHORku6ePBprm5SCiP0PjLhfnvEzMPx9d2M7R1p5sJAL+SU26Af0mEBj04NM6M8i
+5yF8yCr1COQYXcGJy7MY5X/yqcBuA6h1B6rtNNF4Jf6ffN1z2YPj8BnpsiU1vo3E
+sIUKBNmniFfx90nPgipFtDfWEwkV0pL3jcxyaR68Wd6pB6pxIc75mP2uxjg+MmSU
+ZACGImOJhT/LGxCf/1ybwGuMX0ajELOIxZ5bgau2Gzriiv2LzQw2XPAWB02TecGQ
+JGDIurNhCizBocL0u5n8EhLgvvTGTL7pg2pJ6+BpsXs+lRiyWO8biygrBr+5vrGS
+nsxVKf2j5y0rUHGdKDumZpydTOFTmXmNRiHkY3UJVSouwKGHnS5DqDznHojtAbeY
+w/oBvk2L+RR2PaPd5ULWOxWz99blyebwyVta/WhNAJdP0/VsESD8WTWZDoABIrR8
+83O8iFP/+wv1Ie8xWCRRxG+SIiPPVVkWkvSRKl5jnsyrIsK8asNFN7gCSbxEYx4B
+PdtJTEC5/c3oqsZurBRw
+=Qtk/
-----END PGP SIGNATURE-----
diff --git a/lib/File/Util.pm b/lib/File/Util.pm
index e6c719b..da5db5e 100644
--- a/lib/File/Util.pm
+++ b/lib/File/Util.pm
@@ -5,7 +5,7 @@ use warnings;
use lib 'lib';
package File::Util;
-$File::Util::VERSION = '4.161200';
+$File::Util::VERSION = '4.161950';
use File::Util::Definitions qw( :all );
use File::Util::Interface::Modern qw( :all );
@@ -113,7 +113,9 @@ sub list_dir {
my $dir = shift @_;
my $opts = ref $_[0] eq 'REF' ? ${ shift @_ } : $this->_remove_opts( \@_ );
- my ( @dir_contents, $subdirs, $files );
+ my @dir_contents;
+
+ my ( $subdirs, $files ) = ( [], [] );
my $abort_depth = $opts->{abort_depth};
@@ -2992,7 +2994,7 @@ File::Util - Easy, versatile, portable file handling
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Cookbook.pod b/lib/File/Util/Cookbook.pod
index 13b1c02..cabf168 100644
--- a/lib/File/Util/Cookbook.pod
+++ b/lib/File/Util/Cookbook.pod
@@ -11,7 +11,7 @@ File::Util::Cookbook - File::Util in Action
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 INTRODUCTION
diff --git a/lib/File/Util/Definitions.pm b/lib/File/Util/Definitions.pm
index b46f592..e441718 100644
--- a/lib/File/Util/Definitions.pm
+++ b/lib/File/Util/Definitions.pm
@@ -2,7 +2,7 @@ use strict;
use warnings;
package File::Util::Definitions;
-$File::Util::Definitions::VERSION = '4.161200';
+$File::Util::Definitions::VERSION = '4.161950';
# ABSTRACT: Global symbols and constants used in most File::Util classes
use Fcntl qw( :flock );
@@ -183,7 +183,7 @@ File::Util::Definitions - Global symbols and constants used in most File::Util c
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Exception.pm b/lib/File/Util/Exception.pm
index e6a27e5..a0acb7e 100644
--- a/lib/File/Util/Exception.pm
+++ b/lib/File/Util/Exception.pm
@@ -4,7 +4,7 @@ use warnings;
use lib 'lib';
package File::Util::Exception;
-$File::Util::Exception::VERSION = '4.161200';
+$File::Util::Exception::VERSION = '4.161950';
# ABSTRACT: Base exception class for File::Util
use File::Util::Definitions qw( :all );
@@ -202,7 +202,7 @@ File::Util::Exception - Base exception class for File::Util
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Exception/Diagnostic.pm b/lib/File/Util/Exception/Diagnostic.pm
index 1c1032a..c323360 100644
--- a/lib/File/Util/Exception/Diagnostic.pm
+++ b/lib/File/Util/Exception/Diagnostic.pm
@@ -4,7 +4,7 @@ use warnings;
use lib 'lib';
package File::Util::Exception::Diagnostic;
-$File::Util::Exception::Diagnostic::VERSION = '4.161200';
+$File::Util::Exception::Diagnostic::VERSION = '4.161950';
# ABSTRACT: Diagnostic (verbose) error messages
use File::Util::Definitions qw( :all );
@@ -645,7 +645,7 @@ File::Util::Exception::Diagnostic - Diagnostic (verbose) error messages
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Exception/Standard.pm b/lib/File/Util/Exception/Standard.pm
index 7260536..10f1140 100644
--- a/lib/File/Util/Exception/Standard.pm
+++ b/lib/File/Util/Exception/Standard.pm
@@ -4,7 +4,7 @@ use warnings;
use lib 'lib';
package File::Util::Exception::Standard;
-$File::Util::Exception::Standard::VERSION = '4.161200';
+$File::Util::Exception::Standard::VERSION = '4.161950';
# ABSTRACT: Standard (non-verbose) error messages
use File::Util::Definitions qw( :all );
@@ -277,7 +277,7 @@ File::Util::Exception::Standard - Standard (non-verbose) error messages
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Interface/Classic.pm b/lib/File/Util/Interface/Classic.pm
index f3dc175..920b49f 100644
--- a/lib/File/Util/Interface/Classic.pm
+++ b/lib/File/Util/Interface/Classic.pm
@@ -2,7 +2,7 @@ use strict;
use warnings;
package File::Util::Interface::Classic;
-$File::Util::Interface::Classic::VERSION = '4.161200';
+$File::Util::Interface::Classic::VERSION = '4.161950';
# ABSTRACT: Legacy call interface to File::Util
use Scalar::Util qw( blessed );
@@ -133,7 +133,7 @@ File::Util::Interface::Classic - Legacy call interface to File::Util
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Interface/Modern.pm b/lib/File/Util/Interface/Modern.pm
index 601d92d..a8c0183 100644
--- a/lib/File/Util/Interface/Modern.pm
+++ b/lib/File/Util/Interface/Modern.pm
@@ -2,7 +2,7 @@ use strict;
use warnings;
package File::Util::Interface::Modern;
-$File::Util::Interface::Modern::VERSION = '4.161200';
+$File::Util::Interface::Modern::VERSION = '4.161950';
# ABSTRACT: Modern call interface to File::Util
use lib 'lib';
@@ -148,7 +148,7 @@ File::Util::Interface::Modern - Modern call interface to File::Util
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 DESCRIPTION
diff --git a/lib/File/Util/Manual.pod b/lib/File/Util/Manual.pod
index 2832941..986b664 100644
--- a/lib/File/Util/Manual.pod
+++ b/lib/File/Util/Manual.pod
@@ -11,7 +11,7 @@ File::Util::Manual - File::Util Reference
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 INTRODUCTION
diff --git a/lib/File/Util/Manual/Examples.pod b/lib/File/Util/Manual/Examples.pod
index bb1dbeb..85fbad5 100644
--- a/lib/File/Util/Manual/Examples.pod
+++ b/lib/File/Util/Manual/Examples.pod
@@ -11,7 +11,7 @@ File::Util::Manual::Examples - File::Util Examples
=head1 VERSION
-version 4.161200
+version 4.161950
=head1 INTRODUCTION
diff --git a/t/021_list_dir_regression.t b/t/021_list_dir_regression.t
new file mode 100644
index 0000000..66ee2b1
--- /dev/null
+++ b/t/021_list_dir_regression.t
@@ -0,0 +1,37 @@
+
+use strict;
+use warnings;
+
+# the original intent of this test was to isolate and test solely the
+# list_dir method, but it became immediatley apparent that you can't
+# very well test list_dir() unless you have a good directory tree first;
+# this led to the combining of the make_dir and list_dir testing routines
+
+use Test::More tests => 2;
+use Test::NoWarnings;
+
+use File::Temp qw( tempdir );
+
+use lib './lib';
+use File::Util qw( SL NL OS );
+
+# one recognized instantiation setting
+my $ftl = File::Util->new( );
+
+my $tempdir = tempdir( CLEANUP => 1 );
+my $testbed = $tempdir . SL . $$ . SL . time;
+my @test_dirs = qw/ Fin Rey Kylo Poe /;
+
+for my $tdir ( @test_dirs )
+{
+ $ftl->make_dir( $testbed . SL . $tdir )
+}
+
+is_deeply
+(
+ [ sort $ftl->list_dir( $testbed ) ],
+ [ sort qw( . .. ), @test_dirs ],
+ 'regression: plain dir listing with only subdirs present (no files)'
+);
+
+exit;
diff --git a/xt/author/no-tabs.t b/xt/author/no-tabs.t
index d055ffc..b95e90b 100644
--- a/xt/author/no-tabs.t
+++ b/xt/author/no-tabs.t
@@ -40,6 +40,7 @@ my @files = (
't/018_list_dir_advancedmatch.t',
't/019_load_dir.t',
't/020_write_file.t',
+ 't/021_list_dir_regression.t',
't/txt'
);
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfile-util-perl.git
More information about the Pkg-perl-cvs-commits
mailing list