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