diff options
| author | Eric Wong <e@80x24.org> | 2021-10-15 13:30:54 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-10-15 15:58:24 +0000 |
| commit | 2ca12a7fd78d7c9c27fec4f50fdcb58f9c838003 (patch) | |
| tree | 978e331b32d09752f775f2dd3ee6aac02b3fa472 | |
| parent | ea11b7b17d525d20a07d7f62c0334501c5a721b4 (diff) | |
| download | public-inbox-2ca12a7fd78d7c9c27fec4f50fdcb58f9c838003.tar.gz | |
If lei up and edit-search work on something, so should forget-search.
| -rw-r--r-- | lib/PublicInbox/LeiForgetSearch.pm | 2 | ||||
| -rw-r--r-- | t/lei-q-save.t | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiForgetSearch.pm b/lib/PublicInbox/LeiForgetSearch.pm index b5fe5fb1..717fa5e9 100644 --- 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 5940018c..05d5d9f4 100644 --- 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 |