kernel-doc (5668604a6cab13dd5385b8c03a7d55bf92ff0496) kernel-doc (95b6be9d198d964fafd9cbf1dd4d1968291e255c)
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 ##

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

537 } elsif ($name eq "@\.\.\.") {
538 $name = "...";
539 $parameterdescs{$name} = $contents;
540 $sectcheck = $sectcheck . $name . " ";
541 $parameterdesc_start_lines{$name} = $new_start_line;
542 $new_start_line = 0;
543 } else {
544 if (defined($sections{$name}) && ($sections{$name} ne "")) {
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 ##

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

537 } elsif ($name eq "@\.\.\.") {
538 $name = "...";
539 $parameterdescs{$name} = $contents;
540 $sectcheck = $sectcheck . $name . " ";
541 $parameterdesc_start_lines{$name} = $new_start_line;
542 $new_start_line = 0;
543 } else {
544 if (defined($sections{$name}) && ($sections{$name} ne "")) {
545 print STDERR "${file}:$.: warning: duplicate section name '$name'\n";
546 ++$warnings;
545 # Only warn on user specified duplicate section names.
546 if ($name ne $section_default) {
547 print STDERR "${file}:$.: warning: duplicate section name '$name'\n";
548 ++$warnings;
549 }
547 $sections{$name} .= $contents;
548 } else {
549 $sections{$name} = $contents;
550 push @sectionlist, $name;
551 $section_start_lines{$name} = $new_start_line;
552 $new_start_line = 0;
553 }
554 }

--- 2529 unchanged lines hidden --- 		550 $sections{$name} .= $contents;
551 } else {
552 $sections{$name} = $contents;
553 push @sectionlist, $name;
554 $section_start_lines{$name} = $new_start_line;
555 $new_start_line = 0;
556 }
557 }

--- 2529 unchanged lines hidden ---