From 3ce3ed558a83da8e2c458cdff55957484ff161a7 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 27 Dec 2007 13:46:46 +0000 Subject: Regexps are now orange. (Correct a comparison of $] with 5.011 in B.pm) p4raw-id: //depot/perl@32740 --- lib/overload.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/overload.t') 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]+\)$/); -- cgit v1.2.1