From d6bef02d0eb0d023a5283eba6d5ae4e7bc9054dd Mon Sep 17 00:00:00 2001 From: Joseph Myers Date: Tue, 24 Dec 2002 18:56:21 +0000 Subject: [PATCH] * texi2pod.pl: Skip contents of @copying. From-SVN: r60477 --- contrib/ChangeLog | 4 ++++ contrib/texi2pod.pl | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/contrib/ChangeLog b/contrib/ChangeLog index c5f7da03029..409f4fe6773 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,7 @@ +2002-12-24 Joseph S. Myers + + * texi2pod.pl: Skip contents of @copying. + 2002-11-09 Zack Weinberg * gthr_supp_vxw_5x.c: New file. diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl index e5560f303de..d3839458896 100755 --- a/contrib/texi2pod.pl +++ b/contrib/texi2pod.pl @@ -138,7 +138,7 @@ while(<$inf>) { # Ignore @end foo, where foo is not an operation which may # cause us to skip, if we are presently skipping. 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 "\@$endw ended by \@end $ended at line $.\n" unless $ended eq $endw; @@ -178,7 +178,7 @@ while(<$inf>) { next; }; - /^\@(ignore|menu|iftex)\b/ and do { + /^\@(ignore|menu|iftex|copying)\b/ and do { push @endwstack, $endw; push @skstack, $skipping; $endw = $1; -- 2.30.2