Suppress redefined warnings

ufal · Jul 24, 2024 · 006d442 · 006d442
1 parent 48948d2
commit 006d442
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tred_refactored/tredlib/TrEd/Macros.pm b/tred_refactored/tredlib/TrEd/Macros.pm
@@ -929,7 +929,8 @@ sub initialize_macros {
         my $utf = ($useEncoding) ? "use utf8;\n" : q{};
         my $macros = q{};
         $macros .= 'use strict;' if $strict;
-        $macros .= "use warnings; no warnings 'redefine';" if $warnings;
+        $macros .= 'use warnings;' if $warnings;
+        $macros .= 'no warnings "redefine";';
         $macros
             .= "{\n" 
             . $utf