From: Olivier Mengué <dolmen@cpan.org>
Date: Thu, 12 Jun 2014 16:42:59 +0000 (+0200)
Subject: Skip .pod files silently
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0aa58ee6439d30b841da2aa3e941ef8e0fafb8d7;p=p5sagit%2FApp-FatPacker.git

Skip .pod files silently

Fatpacking POD files is useless, so skip them silently.
---

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index c127ca7..ea9f2b9 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -240,6 +240,7 @@ sub collect_files {
   my ($self, $dir, $files) = @_;
   find(sub {
     return unless -f $_;
+    return if /\.pod$/;
     !/\.pm$/ and warn "File ${File::Find::name} isn't a .pm file - can't pack this -- if you hoped we were going to, things may not be what you expected later\n" and return;
     $files->{File::Spec::Unix->abs2rel($File::Find::name,$dir)} =
       $self->load_file($File::Find::name);