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