Better error

diff --git a/lib/Gitalist/Model/Git.pm b/lib/Gitalist/Model/Git.pm
index 260bb26..58d7676 100644 (file)
--- a/lib/Gitalist/Model/Git.pm
+++ b/lib/Gitalist/Model/Git.pm
@@ -89,7 +89,7 @@ sub list_projects {
     my $base = dir($self->repo_dir);
 
     my @ret;
-    my $dh = $base->open;
+    my $dh = $base->open or die("Cannot open dir $base");
     while (my $file = $dh->read) {
         next if $file =~ /^.{1,2}$/;