From 45f2601cf38b11647df3a3dd45465d4c57c77dfc Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 4 Aug 1998 22:07:18 +0000
Subject: get_chapter_id():  Separate two aspects of string replacement to
 allow the 	need for each to vary independently.

---
 Doc/perl/python.perl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index ac1b627..f2a319e 100644
--- 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;
 }
 
-- 
cgit v0.12