From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 20 Apr 2009 21:21:48 +0000 (+0000)
Subject: Use three-arg open.
X-Git-Tag: v0.11008~186
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8180e21aeefca9963dc1bf9d96f044e0a612ffcb;p=dbsrgits%2FSQL-Translator.git

Use three-arg open.
---

diff --git a/lib/SQL/Translator/Producer/GraphViz.pm b/lib/SQL/Translator/Producer/GraphViz.pm
index 232c784..95faab6 100644
--- a/lib/SQL/Translator/Producer/GraphViz.pm
+++ b/lib/SQL/Translator/Producer/GraphViz.pm
@@ -626,7 +626,7 @@ sub produce {
             print $out_file $gv->$output_method;
         }
         else {
-            open my $fh, ">$out_file" or die "Can't write '$out_file': $!\n";
+            open my $fh, '>', $out_file or die "Can't write '$out_file': $!\n";
             binmode $fh;
             print $fh $gv->$output_method;
             close $fh;