1 files changed, 0 insertions, 69 deletions
diff --git a/test/indent/perl.perl b/test/indent/perl.perl
deleted file mode 100755
index f86a09b2733..00000000000
--- a/test/indent/perl.perl
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/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!