Write the WeBWorK::Upload info file UTF-8 encoded.

Of course then the file also has to be read as UTF-8.

This fixes issue openwebwork#2690.

Author: drgrice1

lib/WeBWorK/Upload.pm

@@ -90,7 +90,7 @@ sub store {
 	croak "no upload specified" unless $upload;
 
 	# generate UUID
-	my $ug   = new Data::UUID;
+	my $ug   = Data::UUID->new;
 	my $uuid = $ug->create_str;
 
 	# generate one-time secret
@@ -112,7 +112,7 @@ sub store {
 	$upload->move_to($filePath);
 
 	# write info file
-	open my $infoFH, ">", $infoPath
+	open my $infoFH, '>:encoding(UTF-8)', $infoPath
 		or die "failed to write upload info file $infoPath: $!";
 	print $infoFH "$realFileName\n$secret\n";
 	close $infoFH;
@@ -203,7 +203,7 @@ sub retrieve {
 	croak "no upload matches the ID specified" unless -e $infoPath;
 
 	# get real file name and secret from info file
-	open my $infoFH, "<", $infoPath
+	open my $infoFH, '<:encoding(UTF-8)', $infoPath
 		or die "failed to read upload info file $infoPath: $!";
 	my ($realFileName, $secret) = <$infoFH>;
 	close $infoFH;