chdir 't';
@INC = ('../lib', 'lib'); }
else {
}
}
skip "qr// added in 5.005", 3 if $] < 5.005;
# 5.004 can't even see qr// or it pukes in compile.
eval q{
ok(('foo' =~ /$r/), 'qr// good match'); ok(('bar' !~ /$r/), 'qr// bad match'); };
}
{
ok(('bar' =~ m/$r/), '"//" good match'); ok(('foo' !~ m/$r/), '"//" bad match'); };
{
};
{
ok(('f00' =~ m/$r/), '"//" good match'); ok(('b4r' !~ m/$r/), '"//" bad match'); };