From b0c3e1d7d199309a3c0cefa24ff63c61bebd0138 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(-)

(limited to 'Doc/perl/python.perl')

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index ac1b6278a7..f2a319e9bf 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 v1.2.1