1#!perl -w
2
3# Test that goto &xsub provides the right lexical environment.
4
5use strict;
6
7use Test::More tests => 1;
8use XS::APItest;
9
10# This sub must remain outside the ���use warnings��� scope.
11sub no_warnings { goto &stringify }
12
13use warnings;
14
15$SIG{__WARN__} = sub { like shift, qr\^Use of uninitialized\ };
16
17no_warnings(my $x) # undefined variable
18