+ my $q = qr/abc/;
+ ok "abc" =~ $q, '=~ qr// with no "" overloading';
+ ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" overloading';
+ {
+ no overloading 'qr';
+ my $q = qr/abc/;
+ ok "abc" =~ $q, '=~ qr// with no "" or qr overloading';
+ ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" or qr overloading';
+ }
+