1#!perl 2 3# Test handling of XSUBs in pp_entersub 4 5use Test::More tests => 1; 6use XS::APItest; 7 8$ref = XS::APItest::newRV($_+1); 9is \$$ref, $ref, 'XSUBs do not get to see PADTMPs'; 10