@INC = '../lib';
}
-plan (tests => 37);
+plan (tests => 39);
print "not " unless length("") == 0;
print "ok 1\n";
print length undef;
}
+{
+ local $SIG{__WARN__} = sub {
+ pass '[perl #106726] no crash with length @lexical warning'
+ };
+ eval ' sub { length my @forecasts } ';
+}
+
+# length could be fooled by UTF8ness of non-magical variables changing with
+# stringification.
+my $ref = [];
+bless $ref, "\x{100}";
+is length $ref, length "$ref", 'length on reference blessed to utf8 class';
+
is($warnings, 0, "There were no other warnings");