kernel-doc (b05005772f34497eb2b7415a651fe785cbe70e16) kernel-doc (05189497d10c715bf41c05fb2fd89aa2cf7602f1)
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## ##

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

1757
1758 if ($contents ne "") {
1759 dump_section($section, xml_escape($contents));
1760 $section = $section_default;
1761 }
1762
1763 $contents = $newcontents;
1764 if ($contents 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## ##

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

1757
1758 if ($contents ne "") {
1759 dump_section($section, xml_escape($contents));
1760 $section = $section_default;
1761 }
1762
1763 $contents = $newcontents;
1764 if ($contents ne "") {
1765 if (substr($contents, 0, 1) eq " ") {
1766 $contents = substr($contents, 1);
1767 }
1765 $contents .= "\n";
1766 }
1767 $section = $newsection;
1768 } elsif (/$doc_end/) {
1769
1770 if ($contents ne "") {
1771 dump_section($section, xml_escape($contents));
1772 $section = $section_default;

--- 111 unchanged lines hidden --- 		1768 $contents .= "\n";
1769 }
1770 $section = $newsection;
1771 } elsif (/$doc_end/) {
1772
1773 if ($contents ne "") {
1774 dump_section($section, xml_escape($contents));
1775 $section = $section_default;

--- 111 unchanged lines hidden ---