--- isis2stream.pl 2002/06/25 13:42:54 1.17 +++ isis2stream.pl 2002/07/17 16:55:24 1.18 @@ -49,7 +49,9 @@ if (/^database-name:([^=]+)=(.*)$/) { my ($db_name,$db_desc) = ($1,$2); $db_desc=~s/^##\w+##//g; - $DatabaseDescriptions{$db_name}=$db_desc; + # c_iso_852 is a cludge so that output format would be + # correct 8859-2 again... + $DatabaseDescriptions{$db_name}=c_iso_852($db_desc); } } close(CF);