Changeset 5949 for trunk/Locale-Msgfmt

Timestamp:

07/08/09 17:05:52 (3 years ago)

Author:

ryan52

Message:

• act like make when rebuilding, only rebuild things that need to be rebuilt.
  • add a --force option to force the old behavior of always rebuilding

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• bin/msgfmt.pl (modified) (1 diff)
• lib/Locale/Msgfmt.pm (modified) (2 diffs)
• lib/Locale/Msgfmt/Utils.pm (modified) (1 diff)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 Revision history for Locale-Msgfmt
+
+0.13    Jul 06, 2009
+        - act like make when rebuilding, only rebuild things that need to be rebuilt.
+          - add a --force option to force the old behavior of always rebuilding
 
 0.12    Jul 06, 2009

trunk/Locale-Msgfmt/bin/msgfmt.pl

@@ -7 +7 @@
 use warnings;
 
-my($opt_o, $opt_f, $opt_q);
-GetOptions("output-file|o=s" => \$opt_o, "use-fuzzy|f" => \$opt_f, "quiet|q" => \$opt_q);
+my($opt_o, $opt_f, $opt_q, $opt_force);
+GetOptions("output-file|o=s" => \$opt_o, "use-fuzzy|f" => \$opt_f, "quiet|q" => \$opt_q, "force" => \$opt_force);
 my $in = shift;
 
-msgfmt({in => $in, out => $opt_o, fuzzy => $opt_f, verbose => !$opt_q});
+msgfmt({in => $in, out => $opt_o, fuzzy => $opt_f, verbose => !$opt_q, force => $opt_force});
 
 =head1 NAME

trunk/Locale-Msgfmt/lib/Locale/Msgfmt.pm

@@ -3 +3 @@
 use Locale::Msgfmt::mo;
 use Locale::Msgfmt::po;
+use Locale::Msgfmt::Utils;
 use File::Path;
 use File::Spec;
@@ -55 +56 @@
         }
     }
+        unless($hash->{force}) {
+          return if(-f $hash->{out} && Locale::Msgfmt::Utils::mtime($hash->{out}) >= Locale::Msgfmt::Utils::mtime($hash->{in}));
+        }
     my $mo = Locale::Msgfmt::mo->new();
     $mo->initialize();

trunk/Locale-Msgfmt/lib/Locale/Msgfmt/Utils.pm

@@ -54 +54 @@
 }
 
+sub mtime {
+  return @{[stat(shift)]}[9];
+}
+
 =head1 NAME