mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-11 09:20:51 +00:00
f784272f73
(perl--syntax-exp-intro-keywords): New var. (perl--syntax-exp-intro-regexp, perl-syntax-propertize-function): Use it. (bug#20800).
70 lines
1.1 KiB
Perl
Executable File
70 lines
1.1 KiB
Perl
Executable File
#!/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!
|