In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/43f4a416023b1f5ec16eaf0f05488d0247bc7c42?hp=1f63856ecc09d3de1fbaecf7c4151fce0b1e7153>
- Log ----------------------------------------------------------------- commit 43f4a416023b1f5ec16eaf0f05488d0247bc7c42 Author: Craig A. Berry <[email protected]> Date: Mon Sep 7 13:49:14 2015 -0500 Skip aassign.t test under -DDEBUGGING on VMS. -DDEBUGGING has never gone in $Config{ccflags} on VMS, so the existing skip check failed to skip. There is, however, the VMS-only $Config{usedebugging_perl} that is set to Y when DEBUGGING is enabled. As likely as not, writing this variable to config.sh was an ancient accident, and it's not mentioned in Porting/Glossary. However, it's there and seems to be a reliable indicator of what we've got, so in the absence of anything else reliable, use it. ----------------------------------------------------------------------- Summary of changes: t/op/aassign.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/op/aassign.t b/t/op/aassign.t index 9a7bea6..7b245cd 100644 --- a/t/op/aassign.t +++ b/t/op/aassign.t @@ -272,7 +272,8 @@ sub sh { SKIP: { use Config; # debugging builds will detect this failure and panic - skip "DEBUGGING build" if $::Config{ccflags} =~ /DEBUGGING/; + skip "DEBUGGING build" if $::Config{ccflags} =~ /DEBUGGING/ + or $^O eq 'VMS' && $::Config{usedebugging_perl} eq 'Y'; local $::TODO = 'cheat and optimise my (....) = @_'; local @_ = 1..3; &f17; -- Perl5 Master Repository
