From: Fred Drake <fdrake@acm.org>
Date: Mon, 17 May 1999 15:00:32 +0000 (+0000)
Subject: define_module():  Check the module type for validity before using.
X-Git-Tag: v1.6a1~1349
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=3e4c614c16fdbf19504bbf54395a767457ab10f6;p=thirdparty%2FPython%2Fcpython.git

define_module():  Check the module type for validity before using.
		  This reflects the changes made in
		  ../texinputs/python.sty.
---

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 12c7d0a1a7dd..307944e5c569 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -493,6 +493,12 @@ $THIS_CLASS = '';
 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)";