Changeset 24069

Timestamp:

11/18/08 12:37:55 (5 years ago)

Author:

mattn

Message:

bin-bin-mode!

Files:

• lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (1 diff)

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -134 +134 @@
             $path = "app/$path";
             if (open my $fh, '<', $path) {
+                binmode STDOUT;
                 printf "Content-Type: %s\r\n\r\n", guess_mime_type($path);
                 print do { local $/; <$fh> };