Supress redefined warnings

ufal · Jun 26, 2024 · 285aa72 · 285aa72
1 parent 48948d2
commit 285aa72
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