use Mojolicious::Lite;
use Data::Dump qw(dump);
+use Cwd;
# Documentation browser under "/perldoc" (this plugin requires Perl 5.10)
plugin 'pod_renderer';
return $self->redirect_to( $path ) if -f $path;
+ my $cwd = getcwd;
+ chdir $path;
+ # need to chdir because glob seems to have limited length return values
+
my $files = [
map {
$_ .= '/' if -d $_;
- s{$path/}{};
$_;
}
- glob "$path/*"
+ glob '*'
];
- warn "# path $path ",dump($files);
+ chdir $cwd;
+
+ warn "# path ",dump($path, $files);
$self->stash( files => $files );
};