view release on metacpan or  search on metacpan

lib/Miril/Publisher.pm  view on Meta::CPAN

		$fh->close;
	} catch {
		Miril::Exception->throw(
			errorvar => $_,
			message  => 'Could not save information',
		);
	}
	#my $post_fh = IO::File->new($filename, "<") or die $!;
	#while (<$post_fh>)
	#{
#		warn "BOM before write!" if /\x{FEFF}/;
	#}
}

1;

lib/Miril/Template/HTML/Template.pm  view on Meta::CPAN

	{
		Miril::Exception->throw(
			message => "Could not open template file", 
			errorvar => $_,
		);
	};

	$tmpl->param( %{ $options{params} } );
	
	my $output = $tmpl->output;
	# BOM's mess up with html, see: http://www.w3.org/International/questions/qa-utf8-bom
	# this is a hack and will probably break UTF-16 and UTF-32
	# I am not really sure why BOM's get added for UTF-8 files ...
	$output =~ s/\xEF\xBB\xBF//g;

	return $output;
}

1;