Changeset 5853

Timestamp:

07/05/09 21:45:03 (3 years ago)

Author:

ryan52

Message:

• add Module::Install::Msgfmt. just replace install_share with install_share_with_mofiles in your Makefile.PL.
• add remove option to remove the source file(s) and all .pot files if a directory is being processed
• add verbose option to print the files that were converted

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• lib/Locale/Msgfmt.pm (modified) (4 diffs)
• lib/Module (added)
• lib/Module/Install (added)
• lib/Module/Install/Msgfmt.pm (added)

trunk/Locale-Msgfmt/Changes

@@ -6 +6 @@
         - use is_deeply instead of making a string out of the hash and
           then using is
+        - add Module::Install::Msgfmt. just replace install_share with
+          install_share_with_mofiles in your Makefile.PL.
+        - add remove option to remove the source file(s) and all .pot
+          files if a directory is being processed
+        - add verbose option to print the files that were converted
 
 0.08    Jun 27, 2009

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

@@ -58 +58 @@
   $mo->prepare();
   $mo->out($hash->{out});
+  print $hash->{in} . " -> " . $hash->{out} . "\n" if($hash->{verbose});
+  unlink($hash->{in}) if($hash->{remove});
 }
 
@@ -74 +76 @@
   my @list = readdir D;
   closedir D;
+  my @removelist = ();
+  if($hash->{remove}) {
+    @removelist = grep /\.pot$/, @list;
+  }
   @list = grep /\.po$/, @list;
   my %files;
@@ -81 +87 @@
     $files{$in} = $out;
   }
-  delete $hash->{in};
-  delete $hash->{out};
   foreach(keys %files) {
     my %newhash = (%{$hash});
@@ -88 +92 @@
     $newhash{out} = $files{$_};
     _msgfmt(\%newhash);
+  }
+  foreach(@removelist) {
+    my $f = File::Spec->catfile($hash->{in}, $_);
+    print "-$f\n" if($hash->{verbose});
+    unlink($f);
   }
 }