kernel-doc (bd0d10498826ed150da5e4c45baf8b9c7088fb71) kernel-doc (654784284430bf2739985914b65e09c7c35a7273)
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-2012 Randy Dunlap ##

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

2041 ++$errors;
2042 return;
2043 }
2044
2045 $. = 1;
2046
2047 $section_counter = 0;
2048 while (<IN>) {
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-2012 Randy Dunlap ##

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

2041 ++$errors;
2042 return;
2043 }
2044
2045 $. = 1;
2046
2047 $section_counter = 0;
2048 while (<IN>) {
2049 while (s/\\\s*$//) {
2050 $_ .= <IN>;
2051 }
2049 if ($state == 0) {
2050 if (/$doc_start/o) {
2051 $state = 1; # next line is always the function name
2052 $in_doc_sect = 0;
2053 }
2054 } elsif ($state == 1) { # this line is the function name (always)
2055 if (/$doc_block/o) {
2056 $state = 4;

--- 239 unchanged lines hidden --- 		2052 if ($state == 0) {
2053 if (/$doc_start/o) {
2054 $state = 1; # next line is always the function name
2055 $in_doc_sect = 0;
2056 }
2057 } elsif ($state == 1) { # this line is the function name (always)
2058 if (/$doc_block/o) {
2059 $state = 4;

--- 239 unchanged lines hidden ---