Upgrade Scalar-List-Utils from version 1.34 to 1.35

[perl5.git] / cpan / List-Util / t / blessed.t

diff --git a/cpan/List-Util/t/blessed.t b/cpan/List-Util/t/blessed.t
index 1d448af..ae292b9 100644 (file)
--- a/cpan/List-Util/t/blessed.t
+++ b/cpan/List-Util/t/blessed.t
@@ -17,12 +17,12 @@ use Test::More tests => 11;
 use Scalar::Util qw(blessed);
 use vars qw($t $x);
 
-ok(!blessed(undef),    'undef is not blessed');
-ok(!blessed(1),                'Numbers are not blessed');
-ok(!blessed('A'),      'Strings are not blessed');
-ok(!blessed({}),       'Unblessed HASH-ref');
-ok(!blessed([]),       'Unblessed ARRAY-ref');
-ok(!blessed(\$t),      'Unblessed SCALAR-ref');
+ok(!defined blessed(undef),    'undef is not blessed');
+ok(!defined blessed(1),                'Numbers are not blessed');
+ok(!defined blessed('A'),      'Strings are not blessed');
+ok(!defined blessed({}),       'Unblessed HASH-ref');
+ok(!defined blessed([]),       'Unblessed ARRAY-ref');
+ok(!defined blessed(\$t),      'Unblessed SCALAR-ref');
 
 $x = bless [], "ABC";
 is(blessed($x), "ABC", 'blessed ARRAY-ref');