if ($format =~ s/^(\d\d\d)(\w?)//) {
my $isis_tmp = isis_sf($row,$1,$2,$i);
if ($isis_tmp) {
if ($format =~ s/^(\d\d\d)(\w?)//) {
my $isis_tmp = isis_sf($row,$1,$2,$i);
if ($isis_tmp) {
- eval {
- $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
- };
- if ($@) {
- print STDERR "FATAL: something bad happend while trying to convert '$isis_tmp' [mfn: ",$row->{mfn},"]\n"
- }
+ $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
$display .= $prefix . $isis_tmp;
$swish .= $isis_tmp." ";
#print STDERR " == $isis_tmp";
$display .= $prefix . $isis_tmp;
$swish .= $isis_tmp." ";
#print STDERR " == $isis_tmp";
} elsif ($format =~ s/^(1[01])//) {
my $isis_tmp = isis_sf($row,$1,undef,$i);
if ($isis_tmp) {
} elsif ($format =~ s/^(1[01])//) {
my $isis_tmp = isis_sf($row,$1,undef,$i);
if ($isis_tmp) {
- eval {
- $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
- };
- if ($@) {
- print STDERR "FATAL: something bad happend while trying to convert '$isis_tmp' [mfn: ",$row->{mfn},"]\n"
- }
+ $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
$display .= $prefix . $isis_tmp;
$swish .= $isis_tmp." ";
}
$display .= $prefix . $isis_tmp;
$swish .= $isis_tmp." ";
}