kernel-doc (ecbcfba126e857de8dd4996fe31fad782dd6bae0) kernel-doc (0a7263014b3a0e05b52ccef314e2ccf6f4550a8b)
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 ##

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

2809 }
2810 dump_section($file, $section, xml_escape($contents));
2811 $section = $section_default;
2812 }
2813
2814 $in_doc_sect = 1;
2815 $in_purpose = 0;
2816 $contents = $newcontents;
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 ##

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

2809 }
2810 dump_section($file, $section, xml_escape($contents));
2811 $section = $section_default;
2812 }
2813
2814 $in_doc_sect = 1;
2815 $in_purpose = 0;
2816 $contents = $newcontents;
2817 while ((substr($contents, 0, 1) eq " ") ||
2818 substr($contents, 0, 1) eq "\t") {
2819 $contents = substr($contents, 1);
2820 }
2817 if ($contents ne "") {
2821 if ($contents ne "") {
2818 while ((substr($contents, 0, 1) eq " ") ||
2819 substr($contents, 0, 1) eq "\t") {
2820 $contents = substr($contents, 1);
2821 }
2822 $contents .= "\n";
2823 }
2824 $section = $newsection;
2825 } elsif (/$doc_end/) {
2826 if (($contents ne "") && ($contents ne "\n")) {
2827 dump_section($file, $section, xml_escape($contents));
2828 $section = $section_default;
2829 $contents = "";

--- 199 unchanged lines hidden --- 		2822 $contents .= "\n";
2823 }
2824 $section = $newsection;
2825 } elsif (/$doc_end/) {
2826 if (($contents ne "") && ($contents ne "\n")) {
2827 dump_section($file, $section, xml_escape($contents));
2828 $section = $section_default;
2829 $contents = "";

--- 199 unchanged lines hidden ---