diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-27 13:46:46 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-27 13:46:46 +0000 |
| commit | 3ce3ed558a83da8e2c458cdff55957484ff161a7 (patch) | |
| tree | 29e33b64bdbac4752bbb0bc1d0f9e69344de2f84 /lib/overload.t | |
| parent | 7d879f32d6bc460c660bdefc13574ab1b05062e9 (diff) | |
| download | perl-3ce3ed558a83da8e2c458cdff55957484ff161a7.tar.gz | |
Regexps are now orange.
(Correct a comparison of $] with 5.011 in B.pm)
p4raw-id: //depot/perl@32740
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 94cd296b44..fbaa4fd1ba 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=SCALAR\(0x[0-9a-f]+\)$/); + like(overload::StrVal(qr/a/), qr/^Regexp=ORANGE\(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]+\)$/); |