diff options
author | Russ Allbery <rra@cpan.org> | 2021-09-10 19:26:37 -0700 |
---|---|---|
committer | Russ Allbery <rra@cpan.org> | 2021-09-10 19:26:37 -0700 |
commit | 270d10db5354b63c0c605d9cb4291cb9114a84ab (patch) | |
tree | 634091c105e52f68e6a0bd9958dbf7e2e57bb940 | |
parent | 0bcb5bbd9df3a87ea481b5df335b84a7b0ce20b8 (diff) |
Fix thread \sitemap command
It was printing out the number of elements in the list because
it used the sitemap in a scalar context. Join it instead.
-rw-r--r-- | lib/App/DocKnot/Spin/Thread.pm | 3 | ||||
-rw-r--r-- | t/data/spin/input/random.th | 2 | ||||
-rw-r--r-- | t/data/spin/output/random.html | 17 |
3 files changed, 21 insertions, 1 deletions
diff --git a/lib/App/DocKnot/Spin/Thread.pm b/lib/App/DocKnot/Spin/Thread.pm index 4ce0f99..d75ca66 100644 --- a/lib/App/DocKnot/Spin/Thread.pm +++ b/lib/App/DocKnot/Spin/Thread.pm @@ -1374,7 +1374,8 @@ sub _cmd_sitemap { $self->_warning('no sitemap file found'); return (1, q{}); } - return (1, $self->_border_end() . $self->{sitemap}->sitemap()); + my $sitemap = join(q{}, $self->{sitemap}->sitemap()); + return (1, $self->_border_end() . $sitemap); } # Start a table. Takes any additional HTML attributes to set for the table diff --git a/t/data/spin/input/random.th b/t/data/spin/input/random.th index 5ac1277..7fe6112 100644 --- a/t/data/spin/input/random.th +++ b/t/data/spin/input/random.th @@ -20,4 +20,6 @@ Some text. \strike[strike]\sub[2] \h5[Baz] \h6[tiny] +\sitemap + \signature diff --git a/t/data/spin/output/random.html b/t/data/spin/output/random.html index f5daba7..62ac93a 100644 --- a/t/data/spin/output/random.html +++ b/t/data/spin/output/random.html @@ -47,6 +47,23 @@ Some text. <strike>strike</strike><sub>2</sub> <h5>Baz</h5> <h6>tiny</h6> + +<ul> + <li><a href="software/">Software</a></li> + <ul> + <li><a href="software/cvslog/">"cvslog"</a></li> + <li><a href="software/docknot/">DocKnot</a></li> + <ul> + <li><a href="software/docknot/api/app-docknot.html">App::DocKnot</a></li> + <li><a href="software/docknot/api/app-docknot-command.html">App::DocKnot::Command</a></li> + </ul> + <li><a href="software/rra-c-util/">rra-c-util></a></li> + </ul> + <li><a href="faqs/">FAQs and Documentation</a></li> + <li><a href="photos/">Photos</a></li> + <li><a href="usefor/">Usenet Format and Protocols</a></li> + <li><a href="nntp/">NNTP</a></li> + </ul> <address> Last <a href="https://www.eyrie.org/~eagle/software/web/">spun</a> |