Skip to content

R
riscv-gcc-1
Commit d6bef02d by Joseph Myers Committed by Joseph Myers
Options

* texi2pod.pl: Skip contents of @copying. 

From-SVN: r60477
parent 8601608f
Showing with 6 additions and 2 deletions
contrib/ChangeLog
2002-12-24 Joseph S. Myers <jsm@polyomino.org.uk>
* texi2pod.pl: Skip contents of @copying.
2002-11-09 Zack Weinberg <zack@codesourcery.com> 2002-11-09 Zack Weinberg <zack@codesourcery.com>
* gthr_supp_vxw_5x.c: New file. * gthr_supp_vxw_5x.c: New file.
......
contrib/texi2pod.pl
...@@ -138,7 +138,7 @@ while(<$inf>) { ...@@ -138,7 +138,7 @@ while(<$inf>) {
# Ignore @end foo, where foo is not an operation which may # Ignore @end foo, where foo is not an operation which may
# cause us to skip, if we are presently skipping. # cause us to skip, if we are presently skipping.
my $ended = $1; my $ended = $1;
next if $skipping && $ended !~ /^(?:ifset|ifclear|ignore|menu|iftex)$/; next if $skipping && $ended !~ /^(?:ifset|ifclear|ignore|menu|iftex|copying)$/;
die "\@end $ended without \@$ended at line $.\n" unless defined $endw; die "\@end $ended without \@$ended at line $.\n" unless defined $endw;
die "\@$endw ended by \@end $ended at line $.\n" unless $ended eq $endw; die "\@$endw ended by \@end $ended at line $.\n" unless $ended eq $endw;
...@@ -178,7 +178,7 @@ while(<$inf>) { ...@@ -178,7 +178,7 @@ while(<$inf>) {
next; next;
}; };
/^\@(ignore|menu|iftex)\b/ and do { /^\@(ignore|menu|iftex|copying)\b/ and do {
push @endwstack, $endw; push @endwstack, $endw;
push @skstack, $skipping; push @skstack, $skipping;
$endw = $1; $endw = $1;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment