#!./perl -w

BEGIN {
    require './test.pl';
}

plan tests => 1;

ok(defined @(<(@(1)x127),qr//,1)[127], "qr// should extend the stack properly");