Changeset 33668 for lang/perl/Pod-L10N

Show
Ignore:
Timestamp:
05/29/09 20:39:15 (4 years ago)
Author:
argrath
Message:

import tests from Pod::Html

Location:
lang/perl/Pod-L10N/trunk
Files:
44 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Pod-L10N/trunk/lib/Pod/L10N/Html.pm

    r33648 r33668  
    6262 
    6363my $Encoding; 
     64my $Encoding_Header; 
    6465 
    6566_init_globals(); 
    … …  
    116117    $Is83 = $^O eq 'dos';       # Is it an 8.3 filesystem? 
    117118 
    118     $Encoding = '';             # encoding of pod 
     119    $Encoding = 'utf-8';                # encoding of pod 
    119120} 
    120121 
    … …  
    224225            for (my $i = 0; $i < @poddata; $i++) { 
    225226                if ($poddata[$i] =~ /^=head1\s*NAME\b/m) { 
    226                     for my $para ( @poddata[$i+4, $i+4] ) { 
     227                    for my $para ( @poddata[$i+4, $i+1] ) { 
    227228                        last TITLE_SEARCH 
    228229                            if ($Title) = $para =~ /(\S+\s+-+.*\S)/s; 
    … …  
    265266    for (my $i = 0; $i < @poddata; $i++) { 
    266267        if ($poddata[$i] =~ /^=encoding\s*([-_\w]*)/m) { 
    267             $Encoding = 
    268               '<meta http-equiv="content-type" content="text/html; charset=' . $1 . '" />'; 
     268            $Encoding = $1; 
    269269            last; 
    270270        } 
    … …  
    285285<head> 
    286286<title>$Title</title>$csslink 
    287 $Encoding 
     287<meta http-equiv="content-type" content="text/html; charset=$Encoding" /> 
    288288<link rev="made" href="mailto:$Config{perladmin}" /> 
    289289</head>