diff --git a/bin/panda b/bin/panda index cca2168..bb55333 100755 --- a/bin/panda +++ b/bin/panda @@ -66,4 +66,8 @@ multi MAIN ('search', $pattern) { search-projects($panda, $pattern); } +END { + rm_rf '.work'; +} + # vim: ft=perl6 diff --git a/lib/Panda.pm b/lib/Panda.pm index 2781458..156df4e 100644 --- a/lib/Panda.pm +++ b/lib/Panda.pm @@ -65,6 +65,9 @@ class Panda { $notests, $isdep as Bool) { my $dir = tmpdir(); self.announce('fetching', $bone); + unless $bone.metainfo { + die X::Panda.new($bone.name, 'fetch', 'source-url meta info missing') + } $.fetcher.fetch($bone.metainfo, $dir); self.announce('building', $bone); $.builder.build($dir); diff --git a/lib/Panda/Common.pm b/lib/Panda/Common.pm index 4b09d4f..7ed6d7d 100644 --- a/lib/Panda/Common.pm +++ b/lib/Panda/Common.pm @@ -32,7 +32,7 @@ sub withp6lib(&what) is export { } class X::Panda is Exception { - has $.module; + has $.module is rw; has $.stage; has $.description;