use warnings;
require './test.pl';
-plan( tests => 160 );
+plan( tests => 161 );
# type coersion on assignment
$foo = 'foo';
eval "`` if 0";
is($@, '', "Can't trip up readpipe overloading");
}
+
+{
+ die if exists $::{BONK};
+ $::{BONK} = \"powie";
+ *{"BONK"} = \&{"BONK"};
+ eval 'is(BONK(), "powie",
+ "Assigment works when glob created midway (bug 45607)"); 1'
+ or die $@;
+}
__END__
Perl
Rules