lei q --save: clobber config file on repeats

[public-inbox.git] / lib / PublicInbox / Config.pm

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index 228de4ffe88f631fbccbaee594087a8680adcafd..603dad983657441a68694bb7cc2bb19156794232 100644 (file)
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -510,6 +510,10 @@ sub _fill_ei ($$) {
        my $pfx = "extindex.$name";
        my $d = $self->{"$pfx.topdir"} // return;
        -d $d or return;
+       if (index($d, "\n") >= 0) {
+               warn "E: `$d' must not contain `\\n'\n";
+               return;
+       }
        my $es = PublicInbox::ExtSearch->new($d);
        for my $k (qw(indexlevel indexsequentialshard)) {
                my $v = _one_val($self, $pfx, $k) // next;
@@ -555,4 +559,13 @@ sub json {
        };
 }
 
+sub squote_maybe ($) {
+       my ($val) = @_;
+       if ($val =~ m{([^\w@\./,\%\+\-])}) {
+               $val =~ s/(['!])/'\\$1'/g; # '!' for csh
+               return "'$val'";
+       }
+       $val;
+}
+
 1;