diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 06:34:01 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 06:34:33 -0700 |
| commit | d4fc4415aac96132fac5b1e43e73bcba33a41b79 (patch) | |
| tree | c87f1b9ea1ffc5720b8bd0a1132a5764f64a17ff /t/op/splice.t | |
| parent | 87c7b53d0d7cc2f04915964e3d082adce6dac613 (diff) | |
| download | perl-d4fc4415aac96132fac5b1e43e73bcba33a41b79.tar.gz | |
Make push/shift $scalar accept only unblessed aryrefs
See ticket #80626.
Diffstat (limited to 't/op/splice.t')
| -rw-r--r-- | t/op/splice.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/splice.t b/t/op/splice.t index 07a3e6723c..bc6fb40272 100644 --- a/t/op/splice.t +++ b/t/op/splice.t @@ -93,7 +93,7 @@ splice @Foo::ISA, 0, 0, 'Bar'; print "not " if !Foo->isa('Bar'); print "ok 20\n"; -# Test vivification -splice( $new_arrayref, 0, 0, 1, 2, 3 ); -print "not " unless j(@$new_arrayref) eq j(1,2,3); +# Test undef first arg +eval { splice( $new_arrayref, 0, 0, 1, 2, 3 ) }; +print "not " unless $@ && $@ =~ /Not an ARRAY/; print "ok 21\n"; |