mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 14:30:50 -08:00
1fd7957bc7
* test/lisp/progmodes/cperl-mode-resources/cperl-bug-74245.pl: New test data. * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-74245): Verify that a bare \"$\" can appear at the end of a subroutine signature.
16 lines
499 B
Perl
16 lines
499 B
Perl
# This resource file can be run with cperl--run-testcases from
|
|
# cperl-tests.el and works with both perl-mode and cperl-mode.
|
|
|
|
# -------- signature where last parameter is ignored: input -------
|
|
package P {
|
|
use v5.36;
|
|
sub ignore ($first, $) {}
|
|
ignore(qw(first second));
|
|
}
|
|
# -------- signature where last parameter is ignored: expected output -------
|
|
package P {
|
|
use v5.36;
|
|
sub ignore ($first, $) {}
|
|
ignore(qw(first second));
|
|
}
|
|
# -------- signature where last parameter is ignored: end -------
|