Show
Ignore:
Timestamp:
06/05/09 01:28:43 (6 years ago)
Author:
argrath
Message:

Checking in changes prior to tagging of version 0.03_02. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 33769)
+++ Changes (作業コピー)
@@ -1,5 +1,9 @@

Revision history for Perl extension Pod::L10N.


+0.03_02 Thu Jun 5 00:57:10 JST 2009
+
+ - eliminate some warnings
+

0.03_01 Thu Jun 4 00:23:12 JST 2009


  • change base to Pod::Html 1.09_04
Location:
lang/perl/Pod-L10N/trunk
Files:
2 added
5 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Pod-L10N/trunk/Changes

    r33769 r33791  
    11Revision history for Perl extension Pod::L10N. 
     2 
     30.03_02 Thu Jun  5 00:57:10 JST 2009 
     4 
     5        - eliminate some warnings 
    26 
    370.03_01 Thu Jun  4 00:23:12 JST 2009 
  • lang/perl/Pod-L10N/trunk/MANIFEST

    r33769 r33791  
    88t/00_compile.t 
    99t/11_substitute.t 
     10t/12_minimal.t 
    1011t/99_pod.t 
    1112t/01_core.t 
     
    3536t/htmlview.html 
    3637t/htmlview.pod 
     38t/minimal.pod 
    3739t/noheadi.html 
    3840t/noheads.html 
  • lang/perl/Pod-L10N/trunk/lib/Pod/L10N/Html.pm

    r33769 r33791  
    44 
    55use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); 
    6 $VERSION = '0.03_01'; 
     6$VERSION = '0.03_02'; 
    77@ISA = qw(Exporter); 
    88@EXPORT = qw(pod2html htmlify); 
     
    225225            for (my $i = 0; $i < @poddata; $i++) { 
    226226                if ($poddata[$i] =~ /^=head1\s*NAME\b/m) { 
    227                     for my $para ( @poddata[$i+4, $i+1] ) { 
    228                         last TITLE_SEARCH 
    229                             if ($Title) = $para =~ /(\S+\s+-+.*\S)/s; 
     227                    my $para; 
     228                    # detect L10N-ed NAME 
     229                    if($poddata[$i + 1] =~ /=begin original/){ 
     230                        $para = $poddata[$i + 4]; 
     231                    } else { 
     232                        $para = $poddata[$i + 1]; 
    230233                    } 
     234                    last TITLE_SEARCH 
     235                      if ($Title) = $para =~ /(\S+\s+-+.*\S)/s; 
    231236                } 
    232237 
     
    264269    } 
    265270 
    266     for (my $i = 0; $i < @poddata; $i++) { 
    267         if ($poddata[$i] =~ /^=encoding\s*([-_\w]*)/m) { 
     271    # detect =encoding 
     272    for (@poddata) { 
     273        if (/^=encoding\s*([-_\w]*)/m) { 
    268274            $Encoding = $1; 
    269275            last; 
  • lang/perl/Pod-L10N/trunk/t/11_substitute.t

    r33766 r33791  
    1 #use Test::More skip_all => 'for some reason, this test fail on some platform'; 
    21use Test::More tests => 1; 
    32 
     
    2120my $CACHEDIR = "$CWD/subdir"; 
    2221 
    23 TODO: { 
    24     local $TODO = 'may error on some platform'; 
    25  
    26     convert_ok("substitute.pod", "substitute.html", "l10n substitution"); 
    27 } 
     22# l10n conversion 
     23convert_ok("substitute.pod", "substitute.html", "l10n substitution"); 
    2824 
    2925sub slurp { 
  • lang/perl/Pod-L10N/trunk/t/substitute.html

    r33766 r33791  
    55<title>title</title> 
    66<meta http-equiv="content-type" content="text/html; charset=euc-jp" /> 
    7 <link rev="made" href="[PERLADMIN]" /> 
     7<link rev="made" href="mailto:[PERLADMIN]" /> 
    88</head> 
    99