diff options
| author | Yves Orton <demerphq@gmail.com> | 2008-01-06 20:33:48 +0000 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2008-01-06 20:33:48 +0000 |
| commit | 0fc92fc6bbe8a1e6ff117eca89462208ffcf7f5c (patch) | |
| tree | e269485ed0de4795d11a89097390a1533081f61a /lib/overload.t | |
| parent | 3bc0704bd7190ef9fa9ff3733bd1e918b6f7f4bb (diff) | |
| download | perl-0fc92fc6bbe8a1e6ff117eca89462208ffcf7f5c.tar.gz | |
Make new regex type be 'REGEXP' and make all core qr//'s be in class Regexp (and related changes)
p4raw-id: //depot/perl@32880
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t index 50ec4a77d6..44ead7ef60 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1125,7 +1125,7 @@ like ($@, qr/zap/); like(overload::StrVal(sub{1}), qr/^CODE\(0x[0-9a-f]+\)$/); like(overload::StrVal(\*GLOB), qr/^GLOB\(0x[0-9a-f]+\)$/); like(overload::StrVal(\$o), qr/^REF\(0x[0-9a-f]+\)$/); - like(overload::StrVal(qr/a/), qr/^Regexp\(0x[0-9a-f]+\)$/); + like(overload::StrVal(qr/a/), qr/^Regexp=REGEXP\(0x[0-9a-f]+\)$/); like(overload::StrVal($o), qr/^perl31793=ARRAY\(0x[0-9a-f]+\)$/); like(overload::StrVal($of), qr/^perl31793_fb=ARRAY\(0x[0-9a-f]+\)$/); like(overload::StrVal($no), qr/^no_overload=ARRAY\(0x[0-9a-f]+\)$/); |