lib/PublicInbox/LeiForgetSearch.pm | 2 +- t/lei-q-save.t | 1 + diff --git a/lib/PublicInbox/LeiForgetSearch.pm b/lib/PublicInbox/LeiForgetSearch.pm index b5fe5fb116dbd19bb238af4811b2c4b3bf4db51f..717fa5e9c2e1b68710706f97a9a0ec82628b63f3 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 5940018cd6f95acbc3239bfe7c8f6e1f6a672b0e..05d5d9f4436cd0bb5feeee68887641a19384b50d 100644 --- a/t/lei-q-save.t +++ b/t/lei-q-save.t @@ -173,6 +173,7 @@ SKIP: { 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