speed-up
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 23 Mar 2003 01:14:59 +0000 (01:14 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 23 Mar 2003 01:14:59 +0000 (01:14 +0000)
git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@46 13eb9ef6-21d5-0310-b721-a9d68796d827

parse_format.pm

index 0e9363f..e92958a 100644 (file)
@@ -27,12 +27,7 @@ sub parse_format {
                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";
@@ -44,12 +39,7 @@ sub parse_format {
                } 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." ";
                        }