latex2html/latex2html-2008-binmode.diff

--- IndicTeX-HTML/devnagri.perl
+++ IndicTeX-HTML/devnagri.perl
@@ -331,6 +331,7 @@
 sub do_env_pre_tr_devnagri { 
     local($_) = @_;
     open(DNTR,">dntr.tmp") || print "\n *** cannot open dntr.tmp ***" ;
+	binmode DNTR;
     print DNTR "\$\$", &revert_to_raw_tex($_), "\$\$";
     close DNTR;
     &syswait("patc -p $PRE_FILTERS${dd}dng.pat dntr.tmp dntr.tmp1");
--- IndicTeX-HTML/itrans.perl
+++ IndicTeX-HTML/itrans.perl
@@ -336,10 +336,11 @@
 		, "\#${indic}ifm=".$itrans_info{$indic.'ifm'}
 		, "\#$indic", $itext , "\#end$indic\n" );
     open(ITRANS, ">itrans.itx");
+    binmode ITRANS;;
     print ITRANS "$_";
     close(ITRANS);
     &syswait("$ITRANS <itrans.itx >itrans.htm");
-    open(ITRANS, "<itrans.htm"); $itext = '';
+    open(ITRANS, "<itrans.htm"); binmode ITRANS; $itext = '';
     while (<ITRANS>) {
 	next if (/^(\%|$)/);
 	$itext .= $_ 
--- IndicTeX-HTML/malyalam.perl
+++ IndicTeX-HTML/malyalam.perl
@@ -221,6 +221,7 @@
 sub do_env_pre_mmtr {
     local($_) = @_;
     open(MMTR,">mmtr.tmp") || print "\n *** cannot open mmtr.tmp ***" ;
+	binmode MMTR;
     print MMTR "\$\$", &revert_to_raw_tex($_), "\$\$";
     close MMTR;
     &syswait("$PATC -p $MMDIR${dd}mm.pat mmtr.tmp mmtr.tmp1");
--- cweb2html/cweb2html
+++ cweb2html/cweb2html
@@ -258,7 +258,7 @@
 
     open(INPUT,"<$filename") ||
 	die "$PRGFILE: error: Could not open $filename\n";
-
+    binmode INPUT;
     while (<INPUT>) {
 	$string{'STRING'} .= $_;
     }
--- cweb2html/htcweb.perl
+++ cweb2html/htcweb.perl
@@ -941,6 +941,7 @@
 
     print "\nReading <$_[0]>..." if $DEBUG;
     open(INPUT,"<$_[0]");
+    binmode INPUT;
     while (<INPUT>) {
 	$string{'STRING'} .= $_;
     }
@@ -948,6 +949,7 @@
 
     print "\nReading <$_[1]>..." if $DEBUG;
     open(INPUT,"<$_[1]");
+	binmode INPUT;
     while (<INPUT>) {
 	$string{'STRING'} .= $_;
     }
@@ -1028,6 +1030,7 @@
 	}
     }
     open(INPUT,"<$file") || die "Could not open $file\n";
+	binmode INPUT;
     while (<INPUT>) {
 	$string{'STRING'} .= $_};
     $_ = delete $string{'STRING'}; # Blow it away and return the result
--- cweb2html/makemake.pl
+++ cweb2html/makemake.pl
@@ -27,8 +27,10 @@
 	die "Cannot rename to $source.bak, $!\n";
     open(OUT,">$source") ||
 	die "Cannot open $source, $!\n";
+	binmode OUT;
 
     open(IN,"<$source.bak");
+	binmode IN;
     while (<IN>) {
 	$string{'STRING'} .= $_;
     }
--- latex2html.pin
+++ latex2html.pin
@@ -1088,6 +1088,7 @@
             unless($ignore);
         return undef;
     }
+    binmode CATFILE;
     local($/) = undef; # slurp in whole file
     my $contents = <CATFILE>;
     close(CATFILE);
@@ -1344,6 +1345,7 @@
     $auto_styles =~ s/\|$//;
 
     if(open(STYLES, "<$TMP_${dd}styles")) {
+        binmode STYLES;
         while(<STYLES>) {
             if(s/^\s*(\S+)\s*(.*)$/$style = $1; $options = $2;/eo) {
                 &do_require_package($style);
@@ -1759,6 +1761,7 @@
     unless(open(SINPUT,"<$file")) {
         die "\nError: Cannot read '$file': $!\n";
     }
+    binmode SINPUT;
     local(@file_string);
     print STDOUT "$file" if ($VERBOSITY >1);
     while (<SINPUT>) {
@@ -1843,6 +1846,7 @@
     &wrap_shorthand_environments;
     print STDOUT "\n *** End-of-partition ***" if ($VERBOSITY > 1);
     if(open(OUT, ">$TMP_$dd$PARTITION_PREFIX$count")) {
+        binmode OUT;
         print OUT $_;
         close(OUT);
     } else {
@@ -1863,6 +1867,7 @@
     local($file) = @_;
     local(%string);
     if(open(INPUT,"<$file")) {
+        binmode INPUT;
         local(@file_string);
         while (<INPUT>) {
 	    push(@file_string, $_ );
@@ -2316,6 +2321,7 @@
 	    
 	    open(OUTPUT, ">$CURRENT_FILE")
 		|| die "Cannot write '$CURRENT_FILE': $!\n";
+        binmode OUTPUT;
 	    if ($XBIT_HACK) { # use Apache's XBit hack
 		chmod 0744, $CURRENT_FILE;
 		&check_htaccess;
@@ -3766,6 +3772,7 @@
 	print "\nWriting image.pre file ...\n";
 	open(ENV,">.$dd${PREFIX}images.pre")
             || die "\nCannot write '${PREFIX}images.pre': $!\n";
+	binmode ENV;
 	print ENV &make_latex($latex_body);
 	print ENV "\n";
 	close ENV;
@@ -3785,6 +3792,7 @@
 	# save pre-processor commands in a file:  preproc
 	open(CMDS,">.$dd${PREFIX}preproc")
             || die "\nCannot write '${PREFIX}preproc': $!\n";
+	binmode CMDS;
 	print CMDS $preprocessor_cmds ;
 	close CMDS;
 
@@ -3795,6 +3803,7 @@
 	print "\nWriting image file ...\n";
 	open(ENV,">.$dd${PREFIX}images.tex")
             || die "\nCannot write '${PREFIX}images.tex': $!\n";
+    binmode ENV;
 	print ENV &make_latex($latex_body);
 	print ENV "\n";
 	close ENV;
@@ -7155,8 +7164,10 @@
         print "\nError: Cannot write '$FILE.css': $!\n";
         return;
     }
+    binmode STYLESHEET;
     if ( -f $EXTERNAL_STYLESHEET ) {
         if(open(EXT_STYLES, "<$EXTERNAL_STYLESHEET")) {
+            binmode EXT_STYLES;
             while (<EXT_STYLES>) { print STYLESHEET $_; }
             close(EXT_STYLES);
         } else {
@@ -7451,7 +7462,7 @@
 	    &slurp_input($this_file);
 	    open(OUTFILE, ">$this_file")
                 || die "\nError: Cannot write file '$this_file': $!\n";
-
+	    binmode OUTFILE;
 	    if (($INDEX) && ($SHORT_INDEX) && ($SEGMENT eq 1)) {
 		&make_index_segment($title,$file); }
 
@@ -7815,6 +7826,7 @@
 	return();
     }
     if(open(INIT, "<$init_file")) {
+        binmode INIT;
         foreach $info_line (<INIT>) {
 	    $info_line =~ s/[<>"&]/'&'.$html_special_entities{$&}.';'/eg;
 	    $init_contents .= $info_line;
@@ -8579,6 +8591,7 @@
 sub post_process_footnotes {
     &slurp_input($footfile);
     open(OUT, ">$footfile") || die "Cannot write file '$footfile': $!\n";
+    binmode OUT;
     &replace_markers;
     &post_post_process if (defined &post_post_process);
     &adjust_encoding;
@@ -8600,6 +8613,7 @@
         print "\nError: Cannot write '$filename': $!\n";
         return;
     }
+    binmode FILE;
     print FILE $_;
     close(FILE);
 }
@@ -9039,6 +9053,7 @@
     my $script = $SCRIPT || $0;
     open(PIPE, "$perldoc -t $script |")
         || die "Fatal: can't open pipe: $!";
+    binmode PIPE;
     while (<PIPE>) {
         if (/^\s*$/) {
             next;
@@ -10134,6 +10149,7 @@
         print "\nError: Cannot write '$urlimg': $!\n";
         return;
     }
+    binmode IMAGE_MAP;
     ### HWS  Pass server map unchanged from user
     print IMAGE_MAP "<HTML>\n<BODY>\n<A HREF=\"$map\">\n";
     print IMAGE_MAP "<IMG\n SRC=\"$url\" ISMAP $ausemp $altst> </A>";
@@ -10151,6 +10167,8 @@
     ($to_prefix, $suffix) = split(/\./, $to);
     if ($EXTN =~ /$suffix$/) {
 	if (open(FROM, "<$from") && open(HTMP, ">HTML_tmp")) {
+        binmode FROM;
+        binmode HTMP;
 	    while (<FROM>) {
 		s/$from_prefix\.$IMAGE_TYPE/$to_prefix.$IMAGE_TYPE/g;
 		print HTMP;
@@ -10175,6 +10193,7 @@
 	&replace_markers;
 	&add_dir_to_href if ($DESTDIR);
 	if(open(CAPTIONS, ">${PREFIX}$type.pl")) {
+        binmode CAPTIONS;
 	    print CAPTIONS $_;
 	    close (CAPTIONS);
         } else {
@@ -16385,6 +16404,7 @@
     if (-f $access_file) {
 	print STDOUT " ... found";
 	open(HTACCESS, "<$access_file");
+    binmode HTACCESS;
 	while (<HTACCESS>) {
 	    if (/^\s*XBitHack\s*on\s*$/) {
 		print STDOUT " with XBitHack on";
--- styles/color.perl
+++ styles/color.perl
@@ -154,6 +154,7 @@
 	if (-f $file) {
             if (open(COLORFILE,"<$file")) {
 		print STDOUT "\n(reading colors from $file" if $DEBUG;
+        binmode COLORFILE;
 		$* = 0;	# Multiline matching OFF
 		while (<COLORFILE>) {
 	s/^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\w+(\s\w+)*)\s*/
@@ -187,6 +188,7 @@
 	if (-f $file) {
 	    if (open(COLORFILE,"<$file")) {
 		print STDOUT "\n(reading colors from $file";
+		binmode COLORFILE;
 		$* = 0;			# Multiline matching OFF
 		@colors = (<COLORFILE>);
 		foreach (@colors) {
--- styles/frames.perl
+++ styles/frames.perl
@@ -1126,6 +1126,7 @@
 	);
     &text_cleanup;
     open(FILE,">$filename") || print "Cannot open $filename $!\n";
+	binmode FILE;
     print FILE $_;
     close(FILE);
 }
--- styles/getimagesize.perl
+++ styles/getimagesize.perl
@@ -12,6 +12,7 @@
     my $type = lc($1);
     $type = $IMAGE_TYPE unless $type =~ /(gif|png|jpe?g)/;
     if (open(IMAGE, "<$imagefile")) {
+        binmode IMAGE;
         my ($buffer,$magic,$dummy,$width,$height) = ('','','',0,0);
 	binmode(IMAGE); # not harmful un UNIX
 #       if ($IMAGE_TYPE =~ /gif/) {
--- styles/graphics-support.perl
+++ styles/graphics-support.perl
@@ -426,6 +426,7 @@
   my($file)=@_;
   my(@bb,$f);
   if(($f=find_file($file,$GRAPHICS_PATH,['.eps','.ps','.bb'])) && open(PS,$f)){
+	binmode PS;
     while(<PS>){
       if(/^%%BoundingBox:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s*$/){
 	@bb=($1,$2,$3,$4); last; }}
--- styles/html.perl
+++ styles/html.perl
@@ -293,6 +293,7 @@
 	if ($pretag) {
 	# code due to Alan Williams <alanw@cs.man.ac.uk>
 	    open(LABELS, "<$labelfile");
+		binmode LABELS;
     print "\nLoading external labels from $labelfile, with prefix $pretag"
 	if ($VERBOSITY > 1);
 	    local($translated_stream, $instream);
@@ -400,6 +401,7 @@
 	if ($pretag) {
 	# code due to Alan Williams <alanw@cs.man.ac.uk>
 	    open(LABELS, "<$labelfile");
+		binmode LABELS;
     print "\nLoading external labels from $labelfile, with prefix $pretag"
 	if ($VERBOSITY > 1);
 	    local($translated_stream, $instream);
--- styles/webtex.perl
+++ styles/webtex.perl
@@ -227,6 +227,7 @@
 	    &webeq_failed($out_tag); $out_tag = '';
 	} else {
 	    open(TAG, "<$out_tag");
+		binmode TAG;
 	    $app_tag = join('',<TAG>);
 	    close(TAG);
 	    # replace webeq fall-back image by LaTeX2HTML's own, or none at all
--- texexpand.pin
+++ texexpand.pin
@@ -552,6 +552,7 @@
     if($opt{save_styles}) {
 	open(STYLES,">$opt{save_styles}")
             || die "$prompt Error: Cannot open style file '$opt{save_styles}': $!\n";
+        binmode STYLES;
     }
     my $out_file = $opt{output}||$opt{out};
     if($out_file) {
@@ -561,6 +562,7 @@
     else {
 	open(OUT,">&STDOUT");
     }
+    binmode OUT;
 
     &process_file($infile); # the workhorse...
 
@@ -678,6 +680,7 @@
     $includelevel++;
 
     open(IN,"<$infile") || die "$prompt Cannot open $infile\n";
+    binmode IN;
     print STDERR "$prompt %--- Processing $infile" if ($debug > 1);
 
     # if we don't include this file marker LaTeX2HTML won't split
--- versions/frame.pl
+++ versions/frame.pl
@@ -1202,6 +1202,7 @@
 	);
     &text_cleanup;
     open(FILE,">$filename") || print "Cannot open $filename $!\n";
+	binmode FILE;
     print FILE $_;
     close(FILE);
 }
--- versions/techexpl.pl
+++ versions/techexpl.pl
@@ -212,6 +212,7 @@
 sub TE_check_file_contents {
     local ($ifile) = @_;
     open(TEINC, "<$ifile");
+	binmode TEINC;
     my($macrosOK,$macrosNUM,$numlines,$invalid) = (0,0,0,0);
     my $TE_special_macros_rx = join('|',@TE_special_macros);
     my $TE_defined_accents_rx = join('|',@TE_defined_accents);