diff Doc/perl/python.perl @ 10857:1aa80f5bf9ac legacy-trunk

define_module(): Check the module type for validity before using. This reflects the changes made in ../texinputs/python.sty.
author Fred Drake <fdrake@acm.org>
date Mon, 17 May 1999 15:00:32 +0000
parents 4da76f838a5e
children 2eb2879d567f
line wrap: on
line diff
--- a/Doc/perl/python.perl	Mon May 17 14:57:26 1999 +0000
+++ b/Doc/perl/python.perl	Mon May 17 15:00:32 1999 +0000
@@ -493,6 +493,12 @@
 sub define_module{
     my($word,$name) = @_;
     my $section_tag = join('', @curr_sec_id);
+    if ($word ne "built-in" && $word ne "extension"
+	&& $word ne "standard" && $word ne "") {
+	write_warnings("Bad module type '$word'"
+		       . " for \\declaremodule (module $name)");
+	$word = "";
+    }
     $word = "$word " if $word;
     $THIS_MODULE = "$name";
     $INDEX_SUBITEM = "(in $name)";