From 84f74136d374421d3eb6a71a2e248e2b369cddbe Mon Sep 17 00:00:00 2001
From: Harald Jörg <haj@posteo.de>
Date: Tue, 3 Nov 2020 15:28:40 +0100
Subject: cperl-mode: Fix indentation for Emacs 26

* lisp/progmodes/cperl-mode.el (cperl-mode): Add a fix
which is only required for Emacs versions older than 27.

* test/lisp/progmodes/cperl-mode-tests.el (cperl-bug30393):
Add a test to verify correct indentation (bug#30393).
---
 .../progmodes/cperl-mode-resources/cperl-bug-30393.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 test/lisp/progmodes/cperl-mode-resources/cperl-bug-30393.pl

(limited to 'test/lisp/progmodes/cperl-mode-resources/cperl-bug-30393.pl')

diff --git a/test/lisp/progmodes/cperl-mode-resources/cperl-bug-30393.pl b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-30393.pl
new file mode 100644
index 00000000000..01db7b5206c
--- /dev/null
+++ b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-30393.pl
@@ -0,0 +1,19 @@
+# -------- bug#30393: input --------
+#
+          my $sql = "insert into jobs (id, priority) values (1, 2);";
+               my $sth = $dbh->prepare($sql) or die "bother";
+
+          my $sql = "insert into jobs
+(id, priority)
+values (1, 2);";
+               my $sth = $dbh->prepare($sql) or die "bother";
+# -------- bug#30393: expected output --------
+#
+my $sql = "insert into jobs (id, priority) values (1, 2);";
+my $sth = $dbh->prepare($sql) or die "bother";
+
+my $sql = "insert into jobs
+(id, priority)
+values (1, 2);";
+my $sth = $dbh->prepare($sql) or die "bother";
+# -------- bug#30393: end --------
-- 
cgit v1.2.3