use warnings;
require './test.pl';
-plan( tests => 159 );
+plan( tests => 160 );
# type coersion on assignment
$foo = 'foo';
"Can't trip up general keyword overloading");
$CORE::GLOBAL::{"readline"}=[];
- eval "no warnings; <STDOUT>";
+ eval "<STDOUT> if 0";
is($@, '', "Can't trip up readline overloading");
+
+ $CORE::GLOBAL::{"readpipe"}=[];
+ eval "`` if 0";
+ is($@, '', "Can't trip up readpipe overloading");
}
__END__
Perl