oops, wrong e-mail address

[rails.git] / script / locale / diff

diff --git a/script/locale/diff b/script/locale/diff
index a052e1b982d5126e44500c0283c62ca71fe2b3af..081167b199cc727b9568f04e4edadb336bfb8850 100755 (executable)
--- a/script/locale/diff
+++ b/script/locale/diff
@@ -2,10 +2,11 @@
 use feature ':5.10';
 use strict;
 use warnings;
 use feature ':5.10';
 use strict;
 use warnings;

-use YAML::Syck qw(Load LoadFile);
+use YAML::Syck qw(LoadFile);

 use Test::Differences;
 use Pod::Usage ();
 use Getopt::Long ();
 use Test::Differences;
 use Pod::Usage ();
 use Getopt::Long ();

+use File::Basename qw(fileparse);

 
 =head1 NAME
 
 
 =head1 NAME
 


@@ -72,7 +73,7 @@ C<[[foo]]>) are equivalent in the two provided files.
 
 =head1 AUTHOR
 
 
 =head1 AUTHOR
 

-E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@f-prot.com>
+E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avarab@gmail.com>

 
 =cut
 
 
 =cut
 


@@ -101,8 +102,8 @@ my ($from, $to) = @ARGV;
 my $from_data = LoadFile($from);
 my $to_data   = LoadFile($to);
 
 my $from_data = LoadFile($from);
 my $to_data   = LoadFile($to);
 

-my $from_parsed = { iterate($from_data->{basename($from)}) };
-my $to_parsed = { iterate($to_data->{basename($to)}) };
+my $from_parsed = { iterate($from_data->{fileparse($from, qr/\.[^.]*/)}) };
+my $to_parsed = { iterate($to_data->{fileparse($to, qr/\.[^.]*/)}) };

 
 if ($keys)
 {
 
 if ($keys)
 {


@@ -114,7 +115,7 @@ elsif ($untranslated_values or $untranslated_values_all)
 
     # Prune according to blacklist
     if ($untranslated_values) {
 
     # Prune according to blacklist
     if ($untranslated_values) {

-        @untranslated = prune_untranslated_with_blacklist(basename($to), @untranslated);
+        @untranslated = prune_untranslated_with_blacklist(scalar(fileparse($to, qr/\.[^.]*/)), @untranslated);

     }
 
     say for @untranslated;
     }
 
     say for @untranslated;


@@ -149,7 +150,7 @@ sub prune_untranslated_with_blacklist
     my %keys;
     @keys{@keys} = ();
 
     my %keys;
     @keys{@keys} = ();
 

-    my $end_yaml = Load(join '', <DATA>);
+    my $end_yaml = LoadFile(*DATA);

     my $untranslated_values = $end_yaml->{untranslated_values};
     my $default = $untranslated_values->{default};
     my $this_language = $untranslated_values->{$language} || {};
     my $untranslated_values = $end_yaml->{untranslated_values};
     my $default = $untranslated_values->{default};
     my $this_language = $untranslated_values->{$language} || {};


@@ -217,13 +218,6 @@ sub iterate
     return @ret;
 }
 
     return @ret;
 }
 

-sub basename
-{
-    my $name = shift;
-    $name =~ s[\..*?$][];
-    $name;
-}
-

 sub help
 {
     my %arg = @_;
 sub help
 {
     my %arg = @_;


@@ -252,6 +246,9 @@ untranslated_values:
     site.index.license.project_url: true
     browse.relation_member.entry: true
 
     site.index.license.project_url: true
     browse.relation_member.entry: true
 

+    # #{{id}}
+    changeset.changeset.id: true
+

   de:
     activerecord.attributes.message.sender: true
     activerecord.attributes.trace.name: true
   de:
     activerecord.attributes.message.sender: true
     activerecord.attributes.trace.name: true


@@ -303,3 +300,9 @@ untranslated_values:
     
     # {{name}} ({{id}})
     printable_name.with_name: true
     
     # {{name}} ({{id}})
     printable_name.with_name: true

+
+    # {{type}} 
+    geocoder.search_osm_namefinder.prefix: true
+
+    # {{suffix}}, {{parentname}}
+    geocoder.search_osm_namefinder.suffix_suburb: true