Skip .pod files silently

[p5sagit/App-FatPacker.git] / lib / App / FatPacker.pm

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index c127ca7..ea9f2b9 100644 (file)
--- 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);