From: Ken Youens-Clark <kclark@cpan.org>
Date: Wed, 12 Aug 2009 21:17:43 +0000 (+0000)
Subject: Resolves RT#8847.
X-Git-Tag: v0.11008~114
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54c61e727c25f9258a9b469fd4f0cdae4b519831;p=dbsrgits%2FSQL-Translator.git

Resolves RT#8847.
---

diff --git a/lib/SQL/Translator/Producer/Diagram.pm b/lib/SQL/Translator/Producer/Diagram.pm
index 939a1bf..93b67c8 100644
--- a/lib/SQL/Translator/Producer/Diagram.pm
+++ b/lib/SQL/Translator/Producer/Diagram.pm
@@ -521,6 +521,7 @@ sub produce {
     #
     if ( $out_file ) {
         open my $fh, '>', $out_file or die "Can't write '$out_file': $!\n";
+        binmode $fh;
         print $fh $gd->$output_type;
         close $fh;
     }