Subject: | dump() override $1, $2, $3 |
tested : 5.12.2, 5.8.8
not ok 1
# Failed test at regex.t line 9.
# got: 'undef'
# expected: 'abc'
# Looks like you failed 1 test of 1.
dump() override pattern match var($1, $2, $3).
Because _dump() using regex.
Show quoted text
> if (overload::StrVal($rval) =~ /^(?:([^=]+)=)?([A-Z]+)\
(0x([^\)]+)\)$/) {
Can you fix this?
-- Tomita
Subject: | pattern-match-var.t |
use strict;
use warnings;
use Test::More tests => 1;
use Data::Dump qw/dump/;
if ("abc" =~ /(.+)/) {
my $dump = dump $1;
is($dump, "abc");
}