* lisp/progmodes/perl-mode.el: Add support for here documents.

(perl-syntax-propertize-function): Match here-doc markers.
(perl-syntax-propertize-special-constructs): Find their end.
(perl-imenu-generic-expression): Use [:alnum:].

1 files changed, 15 insertions, 0 deletions

diff --git a/test/indent/perl.perl b/test/indent/perl.perl
index 2411c96a5e4..69c1f90c807 100755
--- a/test/indent/perl.perl
+++ b/test/indent/perl.perl
@@ -1,5 +1,20 @@
 #!/usr/bin/perl
 # -*- eval: (bug-reference-mode 1) -*-
 
+print <<"EOF1" . s/he"llo/th'ere/;
+foo
+EOF2
+bar
+EOF1
+
+
+print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
+foo
+EOF2
+bar
+EOF1
+bar
+EOF2
+
 $fileType_filesButNot           # bug#12373?
     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );