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