www_coderepo: quiet 404s on Atom feeds for dead branches

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

diff --git a/lib/PublicInbox/LeiInput.pm b/lib/PublicInbox/LeiInput.pm
index a1dcc907252f47d7716a83e799e2912a34be2416..b6c2b6bbe8b77b30af2e273be04a548049a15937 100644 (file)
--- a/lib/PublicInbox/LeiInput.pm
+++ b/lib/PublicInbox/LeiInput.pm
@@ -30,6 +30,8 @@ my %ERR = (
                my ($label) = @_;
                length($label) >= $L_MAX and
                        return "`$label' too long (must be <= $L_MAX)";
+               $label =~ /[A-Z]/ and
+                       return "`$label' must be lowercase";
                $label =~ m{\A[a-z0-9_](?:[a-z0-9_\-\./\@,]*[a-z0-9])?\z} ?
                        undef : "`$label' is invalid";
        },
@@ -177,7 +179,7 @@ sub input_path_url {
                        $mbl->{fh} =
                             PublicInbox::MboxReader::zsfxcat($in, $zsfx, $lei);
                }
-               local $PublicInbox::DS::in_loop = 0 if $zsfx; # dwaitpid
+               local $PublicInbox::DS::in_loop = 0 if $zsfx; # awaitpid
                $self->input_fh($ifmt, $mbl->{fh}, $input, @args);
        } elsif (-d _ && (-d "$input/cur" || -d "$input/new")) {
                return $lei->fail(<<EOM) if $ifmt && $ifmt ne 'maildir';