Changeset 24475 for main/trunk/greenstone2/bin
- Timestamp:
- 2011-08-25T19:03:02+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/replace_srcdoc_with_html.pl
r18590 r24475 192 192 open(FIN,"<$output_filename") or die "replace_srcdoc_with_html.pl: Unable to open $output_filename to ensure utf8...ERROR: $!\n"; 193 193 my $html_contents; 194 { 195 local $/ = undef; # Read entire file at once 196 $html_contents = <FIN>; # Now file is read in as one single 'line' 197 &unicode::ensure_utf8(\$html_contents); # turn any high bytes that aren't valid utf-8 into utf-8. 198 } 194 # Read in the entire contents of the file in one hit 195 sysread(FIN, $html_contents, -s FIN); 196 &unicode::ensure_utf8(\$html_contents); # turn any high bytes that aren't valid utf-8 into utf-8. 199 197 close(FIN); 200 198
Note:
See TracChangeset
for help on using the changeset viewer.