[Orca-checkins] rev 230 - trunk/orca/orca

[Blair Zajac]

Author: blair
Date: Tue Apr 22 17:09:57 2003
New Revision: 230

Modified:
   trunk/orca/orca/orca.pl.in
Log:
* orca/orca.pl.in (create_static_images):
  When creating the logo images, open for writing in binary mode to
  support operating systems that may modify the output data, such as
  Windows.


Modified: trunk/orca/orca/orca.pl.in
==============================================================================
--- trunk/orca/orca/orca.pl.in	(original)
+++ trunk/orca/orca/orca.pl.in	Tue Apr 22 17:09:57 2003
@@ -277,7 +277,11 @@
     } elsif (/OPEN (.*)/) {
       $image_filename = "$config_global{html_dir}/$1";
       print "Creating $1.\n" if $opt_verbose;
-      unless (open(ORCA_WRITE, ">$image_filename")) {
+      if (open(ORCA_WRITE, ">$image_filename")) {
+        # Some of these generated files are images, so always open in
+        # binary mode.
+        binmode ORCA_WRITE;
+      } else {
         warn "$0: cannot open `$image_filename' for writing: $!\n";
         $image_filename = '';
       }