* texi2pod.pl: Skip contents of @copying.

From-SVN: r60477

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index c5f7da03029458bcaf6bdab9e51c15e21102e942..409f4fe6773f4550868556f250a5c86f4ad258c8 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-24  Joseph S. Myers  <jsm@polyomino.org.uk>
+
+       * texi2pod.pl: Skip contents of @copying.
+
 2002-11-09  Zack Weinberg  <zack@codesourcery.com>
 
        * gthr_supp_vxw_5x.c: New file.

diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index e5560f303de2552ceda063cbf557940474d4796b..d38394588961bc4ab6223ea57a2404ae70d1bebc 100755 (executable)
--- 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;