diff options
| author | Fred Drake <fdrake@acm.org> | 1998-08-04 22:07:18 +0000 |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-08-04 22:07:18 +0000 |
| commit | b0c3e1d7d199309a3c0cefa24ff63c61bebd0138 (patch) | |
| tree | 2f4fccb2f389350191d86f68b6b726ce41231b4a /Doc/perl/python.perl | |
| parent | e7cfa69c9a1a435bdf6007c5ef063ac9cfa42bf4 (diff) | |
| download | cpython-b0c3e1d7d199309a3c0cefa24ff63c61bebd0138.tar.gz | |
get_chapter_id(): Separate two aspects of string replacement to allow the
need for each to vary independently.
Diffstat (limited to 'Doc/perl/python.perl')
| -rw-r--r-- | Doc/perl/python.perl | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |