Changeset 19022

Show
Ignore:
Timestamp:
09/09/08 01:55:05 (5 years ago)
Author:
drry
Message:
  • fixed a regexp.
  • et cetera.
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/ruby/misc/chm-generators/cpan-chm.pl

    r13576 r19022  
    3333sub unindent ($) { 
    3434        my ($str) = @_; 
    35         $str =~ /^(\s+)/; 
    36         if ($1) { 
    37                 my $indent = $1; 
    38                 $str =~ s/$indent//g; 
     35        if ($str =~ /^\s+/) { 
     36                $str =~ s/^$&//gm; 
    3937        } 
    4038        $str; 
    … …  
    8684                <html xmlns="http://www.w3.org/1999/xhtml"> 
    8785                        <head> 
    88                                 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 
    89                                 <meta http-equiv="Content-Style-Type" content="text/css"> 
     86                                <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
     87                                <meta http-equiv="Content-Style-Type" content="text/css" /> 
    9088                                <title></title> 
    9189                        </head>