[perl5.git] / lib / Tie / Array / splice.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '.'; 
    push @INC, '../lib';
}

# bug id 20001020.002
# -dlc 20001021

use Tie::Array;
tie @a,Tie::StdArray;
undef *Tie::StdArray::SPLICE;
require "op/splice.t"

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