Bug 5600: very tiny follow-up to pass perlcritic

[koha.git] / tools / export.pl

diff --git a/tools/export.pl b/tools/export.pl
index 003a9c7..95b8185 100755 (executable)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -93,7 +93,7 @@ _USAGE_
     $record_type       ||= "bibs";
 
     # Redirect stdout
-    open STDOUT, ">$filename" if $filename;
+    open STDOUT, '>', $filename if $filename;
 
 } else {