Skip to content

Commit ed7c2d1

Browse files
committed
fixes: skip if the vstring has no magic
which happens in <5.8.1, tested with 5.6 expected to be squashed
1 parent fcfe20c commit ed7c2d1

File tree

1 file changed

+7
-4
lines changed
  • dist/Devel-PPPort/parts/inc

1 file changed

+7
-4
lines changed

dist/Devel-PPPort/parts/inc/magic

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -628,7 +628,7 @@ SvVSTRING(sv)
628628
OUTPUT:
629629
RETVAL
630630

631-
=tests plan => 65
631+
=tests plan => 64
632632

633633
# Find proper magic
634634
ok(my $obj1 = Devel::PPPort->new_with_mg());
@@ -776,9 +776,12 @@ is tied($big)->{store}, 0;
776776
SKIP:
777777
{
778778
my $vstr = eval "v1.23.456";
779-
$vstr
780-
or skip "No vstrings", 2;
781-
ok Devel::PPPort::SvVOK($vstr), '$vstr has SvVOK';
779+
780+
if (!Devel::PPPort::SvVOK($vstr)) {
781+
skip "No vstring magic", 1;
782+
last SKIP; # testutil skip() doesn't "last SKIP"
783+
}
784+
782785
is Devel::PPPort::SvVSTRING($vstr), "v1.23.456", 'SvVSTRING()';
783786
}
784787

0 commit comments

Comments
 (0)