xref: /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/stuff_svcur_bug.t (revision f6aab3d83b51b91c24247ad2c2573574de475a82)
1use warnings;
2use strict;
3
4use Test::More tests => 1;
5ok 1;
6
7use XS::APItest qw(stufftest);
8
9# In the buggy case, a syntax error occurs at EOF.
10# Adding a semicolon, any following statements, or anything else
11# causes the bug not to show itself.
12stufftest+;()
13