From 322a9c7fbbcf456084d1937f48345b3cdec058ce Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Fri, 3 Aug 2012 17:00:06 +0200
Subject: [PATCH] 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>
---
 tools/export.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/export.pl b/tools/export.pl
index 003a9c7f36..95b81857e3 100755
--- 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 {
 
-- 
2.39.5