This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix splice+isa test that got mangled when making splice.t use test.pl
authorTobias Leich <email@froggs.de>
Sat, 18 Jan 2014 19:53:45 +0000 (20:53 +0100)
committerJames E Keenan <jkeenan@cpan.org>
Sun, 19 Jan 2014 23:48:08 +0000 (00:48 +0100)
See ce6d40e02d52b9152b44a5fc2180efda15a7d069

t/op/splice.t

index 45cd7f8..dde11f5 100644 (file)
@@ -86,7 +86,7 @@ is( j(@a), j(1,2,2), 'duplicate middle element on the end');
 ok( ! Foo->isa('Bar'), 'Foo is not a Bar');
 
 splice @Foo::ISA, 0, 0, 'Bar';
-ok( !oo->isa('Bar'), 'splice @ISA and make Foo a Bar');
+ok( Foo->isa('Bar'), 'splice @ISA and make Foo a Bar');
 
 # Test undef first arg
 eval { no warnings 'experimental';splice( $new_arrayref, 0, 0, 1, 2, 3 ) };