* src/lread.c (intern_1): Make sure we'd find the symbol we add

Fixes: debbugs:20334

* src/xfaces.c (resolve_face_name): Don't use `intern' with Lisp_Strings.

1 files changed, 9 insertions, 0 deletions

diff --git a/test/indent/perl.perl b/test/indent/perl.perl
index 00ef312f735..ea487543219 100755
--- a/test/indent/perl.perl
+++ b/test/indent/perl.perl
@@ -5,6 +5,15 @@ sub add_funds($) {
     return 0;
 }
 
+my $hash = {
+    foo => 'bar',
+    format => 'some',
+};
+
+sub some_code {
+    print "will not indent :(";
+};
+
 use v5.14;
 
 my $str= <<END;