projects
/
dbsrgits/SQL-Translator.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Use three-arg open.
[dbsrgits/SQL-Translator.git]
/
lib
/
SQL
/
Translator
/
Producer
/
GraphViz.pm
diff --git
a/lib/SQL/Translator/Producer/GraphViz.pm
b/lib/SQL/Translator/Producer/GraphViz.pm
index
232c784
..
95faab6
100644
(file)
--- 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;