diff options
Diffstat (limited to 'Doc/perl/python.perl')
| -rw-r--r-- | Doc/perl/python.perl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index da38cd2..cddba8c 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -2022,9 +2022,12 @@ sub do_env_alltt{ $_ = &translate_environments($_); $_ = &translate_commands($_) if (/\\/); - # preserve space-runs, using - while (s/(\S) ( +)/$1$2;SPMnbsp;/g){}; - s/(<BR>) /$1;SPMnbsp;/g; + # remove spurious <BR> someone sticks in; not sure where they + # actually come from + # XXX the replacement space is there to accomodate something + # broken that inserts a space in front of the first line of + # the environment + s/<BR>/ /gi; $_ = join('', $closures, $alltt_start, $local_reopens , $_ |