comparison scripts/mkdoc.pl @ 18940:29fc1736a6be

scripts/mkdoc.pl: remove '@(end )?example' leading spaces from DOCSTRING.
author Carnë Draug <carandraug@octave.org>
date Fri, 18 Jul 2014 00:03:22 +0100
parents b0960d4afe5f
children 714ce8ca71ea
comparison
equal deleted inserted replaced
18939:b0960d4afe5f 18940:29fc1736a6be
66 66
67 foreach (@help_txt) 67 foreach (@help_txt)
68 { 68 {
69 my $in_example = (m/\s*\@example\b/ .. m/\s*\@end\s+example\b/); 69 my $in_example = (m/\s*\@example\b/ .. m/\s*\@end\s+example\b/);
70 s/^\s+\@/\@/ unless $in_example; 70 s/^\s+\@/\@/ unless $in_example;
71 s/^\s+(\@(?:end)\s+group)/$1/; 71 s/^\s+(\@(?:end)\s+(group|example))/$1/;
72 print $_; 72 print $_;
73 } 73 }
74 } 74 }
75 75
76 ################################################################################ 76 ################################################################################