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 1d0bc03..ea9f2b9 100644 (file)
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -14,7 +14,7 @@ use File::Copy qw(copy);
 use File::Path qw(mkpath rmtree);
 use B qw(perlstring);
 
-our $VERSION = '0.010000'; # 0.10.0
+our $VERSION = '0.010001'; # 0.10.1
 
 $VERSION = eval $VERSION;
 
@@ -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);