From 8d76bf978a59f6bca6a009937589d3e2b0996e99 Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=86var=20Arnfj=C3=B6r=C3=B0=20Bjarmason?=
 <avarab@gmail.com>
Date: Mon, 29 Jun 2009 01:42:40 +0000
Subject: [PATCH 1/1] Use LoadFile(*DATA) to load the __DATA__ section as YAML

---
 script/locale/diff | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/script/locale/diff b/script/locale/diff
index a052e1b98..0335fe983 100755
--- a/script/locale/diff
+++ b/script/locale/diff
@@ -2,7 +2,7 @@
 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 ();
@@ -149,7 +149,7 @@ sub prune_untranslated_with_blacklist
     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} || {};
-- 
2.43.2