regcomp.c: Rename a variable

[perl5.git] / t / op / aassign.t

diff --git a/t/op/aassign.t b/t/op/aassign.t
index b8025cf..4e7aee7 100644 (file)
--- a/t/op/aassign.t
+++ b/t/op/aassign.t
@@ -272,7 +272,7 @@ 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} =~ /(?<!\S)-DDEBUGGING(?!\S)/
                               or $^O eq 'VMS' && $::Config{usedebugging_perl} eq 'Y';
     local $::TODO = 'cheat and optimise my (....) = @_';
     local @_ = 1..3;