Use File::Basename instead of having our own half-arsed version.

[rails.git] / script / locale / diff

diff --git a/script/locale/diff b/script/locale/diff
index 0335fe9836037e8195db56e699b42a70e5e2ea98..228fe356b51cbd952377e0948f45efc0a6654524 100755 (executable)
--- a/script/locale/diff
+++ b/script/locale/diff
@@ -6,6 +6,7 @@ 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
 


@@ -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(fileparse($to, qr/\.[^.]*/), @untranslated);

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


@@ -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 = @_;