From 13a5bc446053cc014e5bc2a3ac77df22d68b8d0e Mon Sep 17 00:00:00 2001
From: IKEDA Soji <ikeda@conversion.co.jp>
Date: Sun, 4 Jun 2023 08:53:32 +0900
Subject: [PATCH] Broken links in sympa_config.pod

---
 doc/sympa_config.podpl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/doc/sympa_config.podpl b/doc/sympa_config.podpl
index cfa7edcdd..283148c74 100644
--- a/doc/sympa_config.podpl
+++ b/doc/sympa_config.podpl
@@ -154,7 +154,7 @@ sub _render_paragraph {
         #$parameters .= "=over\n\n" x (scalar @$pnames);
 
         if ($pii->{obsolete}) {
-            _render_obsolete($pii);
+            _render_obsolete($pii, $ppi);
         } elsif ($pii->{occurrence} =~ /n$/ and ref $pii->{format} eq 'ARRAY')
         {
             _render_set($pii, $ppi);
@@ -213,14 +213,17 @@ sub _render_scalar {
 
 sub _render_obsolete {
     my $pii = shift;
+    my $ppi = shift;
 
     return unless $pii->{obsolete};
 
     if ($pii->{obsolete} eq '1') {
         $parameters .= "Deprecated.\n\n";
     } else {
-        $parameters .= sprintf "See L<C<%s>|/%s>.\n\n",
-            $pii->{obsolete}, $pii->{obsolete};
+        my @parag = @$ppi;
+        pop @parag;
+        my $param = join '.', @parag, $pii->{obsolete};
+        $parameters .= sprintf "See L<C<%s>|/%s>.\n\n", $param, $param;
     }
     $parameters .= "=over\n\n";
     _context($pii);