1 files changed, 69 insertions, 0 deletions
diff --git a/test/manual/indent/perl.perl b/test/manual/indent/perl.perl
new file mode 100755
index 00000000000..f86a09b2733
--- /dev/null
+++ b/test/manual/indent/perl.perl
@@ -0,0 +1,69 @@
+#!/usr/bin/perl
+# -*- eval: (bug-reference-mode 1) -*-
+
+sub add_funds($) {
+    return 0;
+}
+
+my $hash = {
+    foo => 'bar',
+    format => 'some',
+};
+
+sub some_code {
+    print "will not indent :(";
+};
+
+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
+EOF2
+bar
+EOF1
+bar
+EOF2
+
+print $'; # This should not start a string!
+
+print "hello" for /./;
+
+$fileType_filesButNot           # bug#12373?
+    = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
+
+# There can be a comment between an if/when/while and a /<re>/ matcher!
+return 'W' if               #/^Not Available on Mobile/m;    #W=Web only
+    /This video is not available on mobile devices./m;       #bug#20800
+
+# A "y|abc|def|" shouldn't interfere when inside a string!
+$toto = " x \" string\"";
+$toto = " y \" string\"";       # This is not the `y' operator!