--- trunk/lib/WebPAC/Output/MARC.pm	2006/09/08 17:47:58	661
+++ trunk/lib/WebPAC/Output/MARC.pm	2006/09/08 17:48:43	662
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 SYNOPSIS
 
@@ -57,6 +57,7 @@
 	if (my $path = $self->{path}) {
 		open($self->{fh}, '>', $path) ||
 			$log->logdie("can't open MARC output $path: $!");
+		binmode($self->{fh}, ':utf8');
 
 		$log->info("Creating MARC export file $path", $self->{lint} ? ' (with lint)' : '', "\n");
 	} else {
@@ -150,10 +151,7 @@
 		);
 	}
 
-	{
-		use bytes;
-		print {$self->{fh}} $marc->as_usmarc;
-	}
+	print {$self->{fh}} $marc->as_usmarc;
 
 }