lei forget-search: fix for symlink-ed paths

If lei up and edit-search work on something, so should forget-search.

diff --git a/lib/PublicInbox/LeiForgetSearch.pm b/lib/PublicInbox/LeiForgetSearch.pm
index b5fe5fb116dbd19bb238af4811b2c4b3bf4db51f..717fa5e9c2e1b68710706f97a9a0ec82628b63f3 100644 (file)
--- a/lib/PublicInbox/LeiForgetSearch.pm
+++ b/lib/PublicInbox/LeiForgetSearch.pm
@@ -12,7 +12,7 @@ use SelectSaver;
 
 sub lei_forget_search {
        my ($lei, $out) = @_;
-       my $d = PublicInbox::LeiSavedSearch::lss_dir_for($lei, \$out);
+       my $d = PublicInbox::LeiSavedSearch::lss_dir_for($lei, \$out, 1);
        if (-e $d) {
                my $save;
                my $opt = { safe => 1 };

diff --git a/t/lei-q-save.t b/t/lei-q-save.t
index 5940018cd6f95acbc3239bfe7c8f6e1f6a672b0e..05d5d9f4436cd0bb5feeee68887641a19384b50d 100644 (file)
--- a/t/lei-q-save.t
+++ b/t/lei-q-save.t
@@ -173,6 +173,7 @@ test_lei(sub {
                symlink($o, "$home/ln -s") or
                        skip "symlinks not supported in $home?: $!", 1;
                lei_ok('up', "$home/ln -s");
+               lei_ok('forget-search', "$home/ln -s");
        };
 
        my $v2 = "$home/v2"; # v2: as an output destination