1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '.';
1N/A push @INC, '../lib';
1N/A}
1N/A
1N/A# bug id 20001020.002
1N/A# -dlc 20001021
1N/A
1N/Ause Tie::Array;
1N/Atie @a,Tie::StdArray;
1N/Aundef *Tie::StdArray::SPLICE;
1N/Arequire "op/splice.t"
1N/A
1N/A# Pre-fix, this failed tests 6-9