don't explode when no lib folder exists +test

tadzik · May 28, 2013 · 99ecd04 · 99ecd04
1 parent d315631
commit 99ecd04
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/lib/Panda/Builder.pm b/lib/Panda/Builder.pm
@@ -53,9 +53,12 @@ sub build-order(@module-files) {
 
 method build($where) {
     indir $where, {
-        my @files = find(dir => 'lib', type => 'file').grep({
-            $_.name.substr(0, 1) ne '.'
-        });
+        my @files;
+        if 'lib'.IO.d { 
+            @files = find(dir => 'lib', type => 'file').grep({
+                $_.name.substr(0, 1) ne '.'
+            });
+        }
         if "Build.pm".IO.f {
             @*INC.push('.');
             require 'Build.pm';

diff --git a/t/builder.t b/t/builder.t
@@ -2,7 +2,7 @@ use Test;
 use Panda::Builder;
 use Shell::Command;
 
-plan 6;
+plan 7;
 
 my $srcdir = 'testmodules';
 
@@ -15,6 +15,8 @@ ok "$srcdir/dummymodule/blib/lib/bar.pir".IO !~~ :f, 'pod not compiled';
 ok "$srcdir/dummymodule/blib/lib/foo.js".IO ~~ :f,
    'random files also copied to blib';
 
+lives_ok { Panda::Builder.build("$srcdir/testme1") };
+
 rm_rf "$srcdir/dummymodule/blib";
 
 # vim: ft=perl6