Use LoadFile(*DATA) to load the __DATA__ section as YAML

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


@@ -149,7 +149,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} || {};