strip traling slash for dirs in _export_path

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 3681e0f..3af006c 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -343,7 +343,9 @@ sub _export_path {
        my $dir = $self->app->home->rel_dir('public') . "/export/$path";
        mkpath $dir unless -e $dir;
        my $name = join('.', map { __unac($_) } @_ );
-       $dir . '/' . $name;
+       my $full = $dir . '/' . $name;
+       $full =~ s/\/+$// if -d $full; # strip trailing slash for dirs
+       return $full;
 }
 
 sub columns {