kernel-doc (dcd39fa2be95efd5cbce74661151f68510cb67fe) kernel-doc (afa751e84c30b517aebd418970d222c39c81acb8)
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

--- 2107 unchanged lines hidden (view full) ---

2116 if ($state == STATE_BODY_WITH_BLANK_LINE && /^\s*\*\s?\S/) {
2117 dump_section($file, $section, $contents);
2118 $section = $section_default;
2119 $new_start_line = $.;
2120 $contents = "";
2121 }
2122
2123 if (/$doc_sect/i) { # case insensitive for supported section names
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

--- 2107 unchanged lines hidden (view full) ---

2116 if ($state == STATE_BODY_WITH_BLANK_LINE && /^\s*\*\s?\S/) {
2117 dump_section($file, $section, $contents);
2118 $section = $section_default;
2119 $new_start_line = $.;
2120 $contents = "";
2121 }
2122
2123 if (/$doc_sect/i) { # case insensitive for supported section names
2124 $in_doc_sect = 1;
2124 $newsection = $1;
2125 $newcontents = $2;
2126
2127 # map the supported section names to the canonical names
2128 if ($newsection =~ m/^description$/i) {
2129 $newsection = $section_default;
2130 } elsif ($newsection =~ m/^context$/i) {
2131 $newsection = $section_context;

--- 403 unchanged lines hidden --- 		2125 $newsection = $1;
2126 $newcontents = $2;
2127
2128 # map the supported section names to the canonical names
2129 if ($newsection =~ m/^description$/i) {
2130 $newsection = $section_default;
2131 } elsif ($newsection =~ m/^context$/i) {
2132 $newsection = $section_context;

--- 403 unchanged lines hidden ---