diff Doc/perl/python.perl @ 8820:9b0dda9a558b legacy-trunk

get_chapter_id(): Separate two aspects of string replacement to allow the need for each to vary independently.
author Fred Drake <fdrake@acm.org>
date Tue, 04 Aug 1998 22:07:18 +0000
parents 6d61d489d728
children e55a79ff8228
line wrap: on
line diff
--- a/Doc/perl/python.perl	Tue Aug 04 20:53:55 1998 +0000
+++ b/Doc/perl/python.perl	Tue Aug 04 22:07:18 1998 +0000
@@ -883,7 +883,8 @@
 
 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;
 }