From 3e4c614c16fdbf19504bbf54395a767457ab10f6 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 17 May 1999 15:00:32 +0000
Subject: define_module():  Check the module type for validity before using. 
 	  This reflects the changes made in 		 
 ../texinputs/python.sty.

---
 Doc/perl/python.perl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 12c7d0a..307944e 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)";
-- 
cgit v0.12