update to work correctly with utf8 files

diff --git a/dev-bin/side_comment_test.pl b/dev-bin/side_comment_test.pl
index 5daeec4a9aa3bd4d646b91baee8f2d823eacaa41..13e22763d991f974499657d99f928b828a12748e 100755 (executable)
--- a/dev-bin/side_comment_test.pl
+++ b/dev-bin/side_comment_test.pl
@@ -122,6 +122,9 @@ sub add_side_comments {
 sub write_file {
     my ( $fname, $string, $msg ) = @_;
     open my $fh, '>', $fname or die "cannot open $fname: $!\n";
+    if ( utf8::is_utf8($string) ) {
+        binmode $fh, ":raw:encoding(UTF-8)";
+    }
     $fh->print($string);
     $fh->close();
     print STDERR "Wrote $fname\n" if ($msg);