We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent fcfe20c commit ed7c2d1Copy full SHA for ed7c2d1
dist/Devel-PPPort/parts/inc/magic
@@ -628,7 +628,7 @@ SvVSTRING(sv)
628
OUTPUT:
629
RETVAL
630
631
-=tests plan => 65
+=tests plan => 64
632
633
# Find proper magic
634
ok(my $obj1 = Devel::PPPort->new_with_mg());
@@ -776,9 +776,12 @@ is tied($big)->{store}, 0;
776
SKIP:
777
{
778
my $vstr = eval "v1.23.456";
779
- $vstr
780
- or skip "No vstrings", 2;
781
- ok Devel::PPPort::SvVOK($vstr), '$vstr has SvVOK';
+
+ if (!Devel::PPPort::SvVOK($vstr)) {
+ skip "No vstring magic", 1;
782
+ last SKIP; # testutil skip() doesn't "last SKIP"
783
+ }
784
785
is Devel::PPPort::SvVSTRING($vstr), "v1.23.456", 'SvVSTRING()';
786
}
787
0 commit comments