diff options
| author | Tatsuhiko Miyagawa <miyagawa@gmail.com> | 2015-05-10 11:48:48 -0700 |
|---|---|---|
| committer | Tatsuhiko Miyagawa <miyagawa@gmail.com> | 2015-05-10 11:48:48 -0700 |
| commit | a15145221dcc540a0e0b5708e74f9998e4a72118 (patch) | |
| tree | b3ae513fdcfa7eb1398230a7d022ab60a2d6a0d1 | |
| parent | 1dd1fa935ac1edd110ad42701265c04a6b931dd4 (diff) | |
| parent | 0e49368a159b4118acbcb353060e55160483e37b (diff) | |
| download | carton-a15145221dcc540a0e0b5708e74f9998e4a72118.tar.gz | |
Merge pull request #196 from mavit/master
Don't die if no .meta directories are present during fatpack
| -rw-r--r-- | lib/Carton/Packer.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Carton/Packer.pm b/lib/Carton/Packer.pm index 333aa09..dc1a2cf 100644 --- a/lib/Carton/Packer.pm +++ b/lib/Carton/Packer.pm @@ -84,7 +84,9 @@ sub installed_meta { } }; - File::Find::find({ wanted => $finder, no_chdir => 1 }, grep -d, map "$_/.meta", @INC); + my @meta_dirs = grep -d, map "$_/.meta", @INC; + File::Find::find({ wanted => $finder, no_chdir => 1 }, @meta_dirs) + if @meta_dirs; # return the latest version @meta = sort { version->new($b->version) cmp version->new($a->version) } @meta; |