Chromatic wrote:
[snip]
> +re->unimport('taint');
> +isnt( $^H & 0x00100000, 1, 'unimport should clear bits in $^H when requested' );
> +re->unimport('eval');
> +isnt( $^H & 0x00200000, 1, '... and again' );These tests are wrong. $^H & 0x00100000 will never be one, no matter what is in $^H. It will either be 0, or it will be 0x00100000. Just write them as: ok( !($^H & 0x00100000), 'unimport should clear bits in $^H when requested' ); and: ok( !($^H & 0x00200000), '... and again' ); -- Klein bottle for rent - inquire within.
