basic page rendering

[scpubgit/SCS.git] / lib / SCSite / PageSet.pm

diff --git a/lib/SCSite/PageSet.pm b/lib/SCSite/PageSet.pm
index d2d440a..559038b 100644 (file)
--- a/lib/SCSite/PageSet.pm
+++ b/lib/SCSite/PageSet.pm
@@ -16,7 +16,7 @@ sub get {
   $spec->{path} or die "path is required to get";
   my ($dir, $file) = $spec->{path} =~ m{^(?:(.*)/)?([^/]+)$};
   my $type;
-  my @poss = io($self->base_dir)->${\sub {
+  my @poss = io->dir($self->base_dir)->${\sub {
     my $io = shift;
     defined($dir) ? $io->catdir($dir) : $io
   }}->filter(sub { $_->filename =~ /\Q${file}\E\.(html|md)/ and $type = $1 })