diff options
| author | Fergal Daly <fergal@esatclear.ie> | 2003-06-21 19:02:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-22 16:33:25 +0000 |
| commit | b3c0ec7c1220f243dffb147d13728e1cc44420cc (patch) | |
| tree | 9397e7a4ddf6b6d9363b512410c644d2e736bf6d /lib/overload.t | |
| parent | 42bff5bd56ed198158112ff1a7f7240c78970df7 (diff) | |
| download | perl-b3c0ec7c1220f243dffb147d13728e1cc44420cc.tar.gz | |
[perl #22753] overload::StrVal() fails for regexp refs
From: "fergal@esatclear.ie (via RT)" <perlbug-followup@perl.org>
Message-ID: <rt-22753-59662.14.6066295633041@rt.perl.org>
p4raw-id: //depot/perl@19840
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t index 0798a91b9f..0aba79f423 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1085,5 +1085,7 @@ print $a->xet('b') == 42 ? "ok 225\n" : "not ok 225\n"; print defined eval { $a->{b} } ? "not ok 226\n" : "ok 226\n"; print $@ =~ /zap/ ? "ok 227\n" : "not ok 227\n"; +print overload::StrVal(qr/a/) =~ /^Regexp=SCALAR\(0x[0-9a-f]+\)$/ ? "ok 228\n" : "not ok 228\n"; + # Last test is: -sub last {227} +sub last {228} |