New(10003, s, len+1, char);
SAFEPVREAD(s, len, s);
- sv = retrieve(aTHX_ cxt, 0);
+ sv = retrieve(aTHX_ cxt, cname);
sv_magic(sv,NULL,PERL_MAGIC_vstring,s,len);
/* 5.10.0 and earlier seem to need this */
%::weird_refs = (
REF => \(my $aref = []),
VSTRING => \(my $vstring = v1.2.3),
+ 'long VSTRING' => \(my $vstring = eval "v" . 0 x 300),
LVALUE => \(my $substr = substr((my $str = "foo"), 0, 3)),
);
}
my $thawn = thaw($frozen);
# is_deeply ignores blessings
is ref $thawn, ref $obj, "get the right blessing back for $weird";
- if ($weird eq 'VSTRING') {
+ if ($weird =~ 'VSTRING') {
# It is not just Storable that did not support vstrings. :-)
# See https://rt.cpan.org/Ticket/Display.html?id=78678
my $newver = "version"->can("new")