Bug 5600: very tiny follow-up to pass perlcritic

open was called with 2 arguments instead of 3

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>

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 {