As the test is for 'ne', it passes without the eval. However, the test's
description and surrounding code make it clear that it is a test for the
results of eval.
ok( eval q/$fqdb::_/ eq 'fqdb', 'fully qualified, evaled $_ is not in main' );
package fqdb;
::ok( $_ ne 'fqdb', 'unqualified $_ is in main' );
- ::ok( q/$_/ ne 'fqdb', 'unqualified, evaled $_ is in main' );
+ ::ok( eval q/$_/ ne 'fqdb', 'unqualified, evaled $_ is in main' );
}
{