Changeset 33791 for lang/perl/Pod-L10N/trunk

Timestamp:

06/05/09 01:28:43 (4 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:

• Changes (modified) (1 diff)
• MANIFEST (modified) (2 diffs)
• lib/Pod/L10N/Html.pm (modified) (3 diffs)
• t/11_substitute.t (modified) (2 diffs)
• t/12_minimal.t (added)
• t/minimal.pod (added)
• t/substitute.html (modified) (1 diff)

lang/perl/Pod-L10N/trunk/Changes

@@ -1 +1 @@
 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

lang/perl/Pod-L10N/trunk/MANIFEST

@@ -8 +8 @@
 t/00_compile.t
 t/11_substitute.t
+t/12_minimal.t
 t/99_pod.t
 t/01_core.t
@@ -35 +36 @@
 t/htmlview.html
 t/htmlview.pod
+t/minimal.pod
 t/noheadi.html
 t/noheads.html

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

@@ -4 +4 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION = '0.03_01';
+$VERSION = '0.03_02';
 @ISA = qw(Exporter);
 @EXPORT = qw(pod2html htmlify);
@@ -225 +225 @@
             for (my $i = 0; $i < @poddata; $i++) {
                 if ($poddata[$i] =~ /^=head1\s*NAME\b/m) {
-                    for my $para ( @poddata[$i+4, $i+1] ) {
-                        last TITLE_SEARCH
-                            if ($Title) = $para =~ /(\S+\s+-+.*\S)/s;
+                    my $para;
+                    # detect L10N-ed NAME
+                    if($poddata[$i + 1] =~ /=begin original/){
+                        $para = $poddata[$i + 4];
+                    } else {
+                        $para = $poddata[$i + 1];
                     }
+                    last TITLE_SEARCH
+                      if ($Title) = $para =~ /(\S+\s+-+.*\S)/s;
                 }
 
@@ -264 +269 @@
     }
 
-    for (my $i = 0; $i < @poddata; $i++) {
-        if ($poddata[$i] =~ /^=encoding\s*([-_\w]*)/m) {
+    # detect =encoding
+    for (@poddata) {
+        if (/^=encoding\s*([-_\w]*)/m) {
             $Encoding = $1;
             last;

lang/perl/Pod-L10N/trunk/t/11_substitute.t

@@ -1 @@
-#use Test::More skip_all => 'for some reason, this test fail on some platform';
 use Test::More tests => 1;
 
@@ -21 +20 @@
 my $CACHEDIR = "$CWD/subdir";
 
-TODO: {
-    local $TODO = 'may error on some platform';
-
-    convert_ok("substitute.pod", "substitute.html", "l10n substitution");
-}
+# l10n conversion
+convert_ok("substitute.pod", "substitute.html", "l10n substitution");
 
 sub slurp {

lang/perl/Pod-L10N/trunk/t/substitute.html

@@ -5 +5 @@
 <title>title</title>
 <meta http-equiv="content-type" content="text/html; charset=euc-jp" />
-<link rev="made" href="[PERLADMIN]" />
+<link rev="made" href="mailto:[PERLADMIN]" />
 </head>