diff options
| author | David Mitchell <davem@iabyn.com> | 2017-11-01 10:51:13 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-11-01 10:51:13 +0000 |
| commit | e05a85b2946214cbfe22da6059e0fe0307298c4d (patch) | |
| tree | 7d19ddac1d849cb972727d4eeb5da41ac50fe938 /lib | |
| parent | 4ea9a11be3184157e6bb36bffecb14830c9479ac (diff) | |
| download | perl-e05a85b2946214cbfe22da6059e0fe0307298c4d.tar.gz | |
fix Perl_get_cvn_flags() return value
One branch returned an SV* when it should return CV*.
This upset g++.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 3d432ad52e..6e9c6f3f43 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -904,6 +904,7 @@ sub _calc_trace_wrapper ['.', 'main::foo', 6], ) ); + printf "c=[%s]\n", $wrapper->_contents(); $wrapper->contents_like( # qr/^0\s+HASH\([^\)]+\)\n\s+500 => 600\n/, qr/^$re_text/ms, |