Changeset 36199

Timestamp:

12/19/09 05:02:48 (3 years ago)

Author:

ktat

Message:

fix bug: date and time is not embeded. if version is same, embed version information.

Files:

• lang/perl/POD2-JA/Makefile.PL (modified) (3 diffs)

lang/perl/POD2-JA/Makefile.PL

@@ -1 +1 @@
 use strict;
 use version;
+
+our $DATE_TIME = scalar localtime;
 
 main() unless $ENV{HARNESS_ACTIVE};
@@ -81 +83 @@
 use Encode::Guess;
 
-my $date_time = scalar localtime;
-
 sub find_core_version {
   remove_tree('lib/POD2/JA/*') if -d "lib/POD2/JA";
@@ -111 +111 @@
   my $pod = slurp_file($s);
 
-  if (defined $version and $version->[0] ne $version->[1]) {
-    $pod = sprintf(<<__VERSION, $date_time, $version->[0], $version->[1]) . $pod;
+  if (defined $version) {
+    $pod = sprintf(<<__VERSION, $main::DATE_TIME, $version->[0], $version->[1]) . $pod;
 =head1 ABOUT TRANSLATION VERSION