As we keep migrating documents to ReST, we're starting to see more of such tags. Right now, all such tags are pointing to a documentation file, but regressions may be introduced. So, add a check for such kind of issues as well.
Showing the changes to scripts (1 of 1 file). Show all
Unified · Split
| @@ -30,6 +30,34 @@ print "Finding broken references. This may take a while... " if ($fix); · 29 unmodified lines | |||
| 30 | 30 | ||
| 31 | my %broken_ref; | 31 | my %broken_ref; |
| 32 | 32 | ||
| 33 | my $doc_fix = 0; | ||
| 34 | |||
| 35 | open IN, "git grep ':doc:\`' Documentation/|" | ||
| 36 | or die "Failed to run git grep"; | ||
| 37 | while (<IN>) { | ||
| 38 | next if (!m,^([^:]+):.*\:doc\:\`([^\`]+)\`,); | ||
| 39 | |||
| 40 | my $d = $1; | ||
| 41 | my $doc_ref = $2; | ||
| 42 | |||
| 43 | my $f = $doc_ref; | ||
| 44 | |||
| 45 | $d =~ s,(.*/).*,$1,; | ||
| 46 | $f =~ s,.*\<([^\>]+)\>,$1,; | ||
| 47 | |||
| 48 | $f ="$d$f.rst"; | ||
| 49 | |||
| 50 | next if (grep -e, glob("$f")); | ||
| 51 | |||
| 52 | if ($fix && !$doc_fix) { | ||
| 53 | print STDERR "\nWARNING: Currently, can't fix broken :doc:`` fields\n"; | ||
| 54 | } | ||
| 55 | $doc_fix++; | ||
| 56 | |||
| 57 | print STDERR "$f: :doc:`$doc_ref`\n"; | ||
| 58 | } | ||
| 59 | close IN; | ||
| 60 | |||
| 33 | open IN, "git grep 'Documentation/'|" | 61 | open IN, "git grep 'Documentation/'|" |
| 34 | or die "Failed to run git grep"; | 62 | or die "Failed to run git grep"; |
| 35 | while (<IN>) { | 63 | while (<IN>) { |
| @@ -103,6 +131,7 @@ while (<IN>) { · 67 unmodified lines | |||
| 103 | } | 131 | } |
| 104 | } | 132 | } |
| 105 | } | 133 | } |
| 134 | close IN; | ||
| 106 | 135 | ||
| 107 | exit 0 if (!$fix); | 136 | exit 0 if (!$fix); |
| 108 | 137 | ||