get_chapter_id(): Separate two aspects of string replacement to allow the

	need for each to vary independently.

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index ac1b6278a72a1de77a53b4466c735b4e113b2290..f2a319e9bfe856f4147df313a1f67e27a66888c7 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -883,7 +883,8 @@ require SynopsisTable;
 
 sub get_chapter_id(){
     my $id = do_cmd_thechapter('');
-    $id =~ s/<SPAN CLASS="arabic">(\d+)<\/SPAN>\./\1/;
+    $id =~ s/<SPAN CLASS="arabic">(\d+)<\/SPAN>/\1/;
+    $id =~ s/\.//;
     return $id;
 }