1b39c5158Smillert#!./perl -w 2b39c5158Smillert 3b39c5158SmillertBEGIN { 4b39c5158Smillert chdir 't' if -d 't'; 5b39c5158Smillert require './test.pl'; 6*5759b3d2Safresh1 set_up_inc('../lib'); 7b39c5158Smillert} 8b39c5158Smillert 9b39c5158Smillertplan tests => 1; 10b39c5158Smillert 11b39c5158Smillertok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly"); 12