From 23c6e7c96f3c4114dd387c00e75805515588776b Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 11 Dec 2013 09:03:03 -0700
Subject: [PATCH] run/locale.t: Fix bareword error

This string should be in quotes to be properly eval'd.  Prior to this
patch this .t failed when run by hand as the bareword warning is made
fatal.
---
 t/run/locale.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/run/locale.t b/t/run/locale.t
index 44223174e8..0ecf9a941e 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -141,7 +141,7 @@ EOF
         # this test is to prevent regression of [rt.perl.org #105784]
         fresh_perl_is(<<"EOF",
             BEGIN {
-                if($Config{d_setlocale}) {
+                if("$Config{d_setlocale}") {
                     require locale; import locale;
                 }
             }
-- 
2.34.1