diff options
author | David Mitchell <davem@iabyn.com> | 2012-02-14 11:55:46 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:25:47 +0100 |
commit | 1d0d6c5386b9438c57fc85bfc821556bd215e664 (patch) | |
tree | 0bfe61027b6c1e1dd7c9b70acd2a26b9c2218a84 /lib | |
parent | d50a8e9e45e1b056e6d0d504d124b987ef3989c1 (diff) | |
download | perl-1d0d6c5386b9438c57fc85bfc821556bd215e664.tar.gz |
Revert two commits to make rebasing easier
These two commits will be added back later after rebasing
"[perl #108780] Make /foo$qr/ work under ‘no overloading’"
37c07a4b201c9f799808d346817c4685e3e9002a.
"regcomp.c: Silence valgrind warning"
44bed85634c450533d59ae9e371037dde0101d51.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/overloading.t | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/overloading.t b/lib/overloading.t index 85fc7e2c94..787edb1b9d 100644 --- a/lib/overloading.t +++ b/lib/overloading.t @@ -1,6 +1,6 @@ #./perl -use Test::More tests => 50; +use Test::More tests => 46; use Scalar::Util qw(refaddr); @@ -50,16 +50,6 @@ is( cos($x), "far side of overload table", "cosinusfies" ); is( 0 + $x, 42, "numifies" ); is( cos($x), "far side of overload table", "cosinusfies" ); - 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'; - } - { no overloading; is( "$x", overload::StrVal($x), "no stringification" ); |