From 37fc255eccf5c09cc3b515968eece5a74f2260dc Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 21 Oct 2012 09:33:53 -0500 Subject: [PATCH] Proper skippage for sanity check in B::Deparse's core.t. The check was being skipped when PERL_CORE was not defined or if running on VMS, but the test count was not being updated, so it would be wrong and cause the test to fail in these cases. So use the standard skip facility to handle the skipping. Plus the test works fine on VMS so go ahead and run it there as well. --- dist/B-Deparse/t/core.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/B-Deparse/t/core.t b/dist/B-Deparse/t/core.t index 8f4b6e5..58540f8 100644 --- a/dist/B-Deparse/t/core.t +++ b/dist/B-Deparse/t/core.t @@ -334,7 +334,9 @@ my %not_tested = map { $_ => 1} qw( # make sure we haven't missed any keywords, # and that we got the strength right. -if (defined $ENV{PERL_CORE} and $^O ne 'VMS') { +SKIP: +{ + skip "sanity checks when not PERL_CORE", 1 unless defined $ENV{PERL_CORE}; my $count = 0; my $file = '../../regen/keywords.pl'; my $pass = 1; -- 2.7.4