Merge from emacs-24; up to 117669

[gnu-emacs] / test / indent / perl.perl

diff --git a/test/indent/perl.perl b/test/indent/perl.perl
index aca478a1375285bd7acaa1db2c07c1553330dce3..00ef312f735fefbf0b71a17fec4499a35b0cec8f 100755 (executable)
--- a/test/indent/perl.perl
+++ b/test/indent/perl.perl
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 # -*- eval: (bug-reference-mode 1) -*-
 
+sub add_funds($) {
+    return 0;
+}
+
 use v5.14;
 
 my $str= <<END;
@@ -14,12 +18,23 @@ my $b=3;
 print $str;
 if ($c && /====/){xyz;}
 
-print << "EOF1" . s/he"llo/th'ere/;
+print "a" . <<EOF . s/he"llo/th'ere/;
+It's a surprise!
+EOF
+
+print <<\EOF1 . s/he"llo/th'ere/;
 foo
 EOF2
 bar
 EOF1
 
+$config = {
+    b  =>
+        [
+         "123",
+        ],
+    c => "123",
+};
 
 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
 foo