diff options
| -rwxr-xr-x | doc/texi2pod.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl index 07b724fa93..fd3f02059d 100755 --- a/doc/texi2pod.pl +++ b/doc/texi2pod.pl @@ -100,6 +100,17 @@ while(<$inf>) { next; }; + /^\@include\s+(.+)$/ and do { + push @instack, $inf; + $inf = gensym(); + + # Try cwd and $ibase. + open($inf, "<" . $1) + or open($inf, "<" . $ibase . "/" . $1) + or die "cannot open $1 or $ibase/$1: $!\n"; + next; + }; + # Look for blocks surrounded by @c man begin SECTION ... @c man end. # This really oughta be @ifman ... @end ifman and the like, but such # would require rev'ing all other Texinfo translators. @@ -220,17 +231,6 @@ while(<$inf>) { # Single line command handlers. - /^\@include\s+(.+)$/ and do { - push @instack, $inf; - $inf = gensym(); - - # Try cwd and $ibase. - open($inf, "<" . $1) - or open($inf, "<" . $ibase . "/" . $1) - or die "cannot open $1 or $ibase/$1: $!\n"; - next; - }; - /^\@(?:section|unnumbered|unnumberedsec|center)\s+(.+)$/ and $_ = "\n=head2 $1\n"; /^\@subsection\s+(.+)$/ |