kernel-doc (94b3e03c875f25c19ede9600c66d74a30b81957d) kernel-doc (792aa2f2cc4924024e28c9ddf1456434992f9c41)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2007 Randy Dunlap ##

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

1902 ++$warnings;
1903 $state = 0;
1904 }
1905 } elsif ($state == 2) { # look for head: lines, and include content
1906 if (/$doc_sect/o) {
1907 $newsection = $1;
1908 $newcontents = $2;
1909
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2007 Randy Dunlap ##

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

1902 ++$warnings;
1903 $state = 0;
1904 }
1905 } elsif ($state == 2) { # look for head: lines, and include content
1906 if (/$doc_sect/o) {
1907 $newsection = $1;
1908 $newcontents = $2;
1909
1910 if ($contents ne "") {
1910 if (($contents ne "") && ($contents ne "\n")) {
1911 if (!$in_doc_sect && $verbose) {
1912 print STDERR "Warning(${file}:$.): contents before sections\n";
1913 ++$warnings;
1914 }
1915 dump_section($section, xml_escape($contents));
1916 $section = $section_default;
1917 }
1918

--- 122 unchanged lines hidden --- 		1911 if (!$in_doc_sect && $verbose) {
1912 print STDERR "Warning(${file}:$.): contents before sections\n";
1913 ++$warnings;
1914 }
1915 dump_section($section, xml_escape($contents));
1916 $section = $section_default;
1917 }
1918

--- 122 unchanged lines hidden ---