mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-30 17:10:51 -08:00
5d03fb436f
(advice--member-p): If name is given, only compare the name. (advice--remove-function): Don't stop at the first match. (advice--normalize-place): New function. (add-function, remove-function): Use it. (advice--add-function): Pass the name, if any, to advice--remove-function.
37 lines
472 B
Perl
Executable file
37 lines
472 B
Perl
Executable file
#!/usr/bin/perl
|
|
# -*- eval: (bug-reference-mode 1) -*-
|
|
|
|
use v5.14;
|
|
|
|
my $str= <<END;
|
|
Hello
|
|
END
|
|
|
|
my $a = $';
|
|
|
|
my $b=3;
|
|
|
|
print $str;
|
|
if ($c && /====/){xyz;}
|
|
|
|
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
|
|
|
|
print $'; # This should not start a string!
|
|
|
|
print "hello" for /./;
|
|
|
|
$fileType_filesButNot # bug#12373?
|
|
= join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
|