makedef.pl: Properly define a hash element

khwilliamson · demerphq · commit 84fa78b4832e · 2022-12-10T10:28:11.000+01:00
I had been so used to working lately with C preprocessor directives that
I used the same paradigm in Perl  without noticing.  If 'warnings' had
been on, it would have caught this (the previous commit now turns them
on).
diff --git a/makedef.pl b/makedef.pl
@@ -195,7 +195,7 @@ BEGIN
                               || (   $define{WIN32}
                                   && $define{USE_THREAD_SAFE_LOCALE})))
 {
-    $define{USE_PERL_SWITCH_LOCALE_CONTEXT}
+    $define{USE_PERL_SWITCH_LOCALE_CONTEXT} = 1;
 }
 
 # perl.h logic duplication ends

Original file line number	Diff line number	Diff line change
`@@ -195,7 +195,7 @@ BEGIN`
`195`	`195`	`\|\| ( $define{WIN32}`
`196`	`196`	`&& $define{USE_THREAD_SAFE_LOCALE})))`
`197`	`197`	`{`
`198`		`- $define{USE_PERL_SWITCH_LOCALE_CONTEXT}`
	`198`	`+ $define{USE_PERL_SWITCH_LOCALE_CONTEXT} = 1;`
`199`	`199`	`}`
`200`	`200`
`201`	`201`	`# perl.h logic duplication ends`