Bug 33341: Address some perlcritic errors in 5.36

[srvgit] / misc / translator / xgettext.pl

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index 1d7a5d7..9eec036 100755 (executable)
--- a/misc/translator/xgettext.pl
+++ b/misc/translator/xgettext.pl
@@ -387,7 +387,7 @@ if (defined $output && $output ne '-') {
     open($OUTPUT, '>:encoding(utf-8)', $output) || die "$output: $!\n";
 } else {
     print STDERR "$0: Outputting to STDOUT...\n" if $verbose_p;
-    open($OUTPUT, ">&STDOUT");
+    open($OUTPUT, q{>}, "&STDOUT");
 }
 
 if (defined $files_from) {