1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '.'; 6 push @INC, '../lib'; 7} 8 9# bug id 20001020.002 10# -dlc 20001021 11 12use Tie::Array; 13tie @a,Tie::StdArray; 14undef *Tie::StdArray::SPLICE; 15require "op/splice.t" 16 17# Pre-fix, this failed tests 6-9 18