From 2ca12a7fd78d7c9c27fec4f50fdcb58f9c838003 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 15 Oct 2021 13:30:54 +0000 Subject: [PATCH] lei forget-search: fix for symlink-ed paths If lei up and edit-search work on something, so should forget-search. --- lib/PublicInbox/LeiForgetSearch.pm | 2 +- t/lei-q-save.t | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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 -- 2.44.0