X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/bd358779861f265a7acff31ead40172735af693e..b6e66a5cc78e353ff9ae6cdd0807eefcf55b4934:/test/indent/perl.perl

diff --git a/test/indent/perl.perl b/test/indent/perl.perl
index 69c1f90c80..00ef312f73 100755
--- a/test/indent/perl.perl
+++ b/test/indent/perl.perl
@@ -1,12 +1,40 @@
 #!/usr/bin/perl
 # -*- eval: (bug-reference-mode 1) -*-
 
-print <<"EOF1" . s/he"llo/th'ere/;
+sub add_funds($) {
+    return 0;
+}
+
+use v5.14;
+
+my $str= <<END;
+Hello
+END
+
+my $a = $';
+
+my $b=3;
+
+print $str;
+if ($c && /====/){xyz;}
+
+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
@@ -16,5 +44,9 @@ EOF1
 bar
 EOF2
 
+print $'; # This should not start a string!
+
+print "hello" for /./;
+
 $fileType_filesButNot           # bug#12373?
     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );