diff options
author | Tobias Leich <email@froggs.de> | 2014-01-18 20:53:45 +0100 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2014-01-20 00:48:08 +0100 |
commit | 50b2b0fc69f6bc5730bf79d6c051b67b7e05afa0 (patch) | |
tree | 220fef2750a23bed918bbdc1224b2c5a9142210a | |
parent | 3ac2191a2512af33d289fa09e823cb106596760d (diff) | |
download | perl-50b2b0fc69f6bc5730bf79d6c051b67b7e05afa0.tar.gz |
fix splice+isa test that got mangled when making splice.t use test.pl
See ce6d40e02d52b9152b44a5fc2180efda15a7d069
-rw-r--r-- | t/op/splice.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/splice.t b/t/op/splice.t index 45cd7f8e69..dde11f52ac 100644 --- a/t/op/splice.t +++ b/t/op/splice.t @@ -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 ) }; |