* texi2pod.pl: Substitue for @value even when part of @include.
This commit is contained in:
		| @@ -1,3 +1,7 @@ | |||||||
|  | 2005-10-11  Mark Mitchell  <mark@codesourcery.com> | ||||||
|  |  | ||||||
|  | 	* texi2pod.pl: Substitue for @value even when part of @include.  | ||||||
|  |  | ||||||
| 2005-10-21  Bob Wilson  <bob.wilson@acm.org> | 2005-10-21  Bob Wilson  <bob.wilson@acm.org> | ||||||
|  |  | ||||||
| 	* texi2pod.pl: Import latest version from GCC. | 	* texi2pod.pl: Import latest version from GCC. | ||||||
|   | |||||||
| @@ -227,11 +227,12 @@ while(<$inf>) { | |||||||
|     /^\@include\s+(.+)$/ and do { |     /^\@include\s+(.+)$/ and do { | ||||||
| 	push @instack, $inf; | 	push @instack, $inf; | ||||||
| 	$inf = gensym(); | 	$inf = gensym(); | ||||||
|  | 	$file = postprocess($1); | ||||||
|  |  | ||||||
| 	# Try cwd and $ibase. | 	# Try cwd and $ibase. | ||||||
| 	open($inf, "<" . $1)  | 	open($inf, "<" . $file)  | ||||||
| 	    or open($inf, "<" . $ibase . "/" . $1) | 	    or open($inf, "<" . $ibase . "/" . $file) | ||||||
| 		or die "cannot open $1 or $ibase/$1: $!\n"; | 		or die "cannot open $file or $ibase/$file: $!\n"; | ||||||
| 	next; | 	next; | ||||||
|     }; |     }; | ||||||
|  |  | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user