perl eval throwing blank exception

Question

私はデータベース内のいくつかのレコードを更新しています。そしてすべての処理はevalブロックで行われます。 問題は、レコードが正常に更新されたとしても、引き続き例外が発生していることがわかります。

例外をデバッグするには、Data Dumperを使用して印刷を試みましたが、例外は空白です。

このエラーが何であるかを特定するのに役立ちますが、いつもそれはいつもスローされますか？

環境詳細（Perlの5.8およびUnixのSUSE）データダンパーから

ダンプ：私は。これらのレコードを更新するために、様々な内部APIを使用していますので、私は見て自分のコードを変更した

$VAR1 = ' 
'; 

類似：

 sub main{ 
     eval{ 
     DB->updateRecord($value) 
     }; 
     if($@){ 
      Mail->SendMail(__PACKAGE__,$@): 
     } 
     } 

     package DB; 
     sub updateRecord{ 
      my ($self , $value) = @_; 
      my $query = "update set column_value = $value ..<update query> "; 
      API->processQuery($query); 
     } 

Answer 1

コードuse warnings;はありますか？

あなたのコードでは、の文字列"\n"を渡していることが示されています。私の推測では、あなたのソースには、エラーメッセージで死ぬことを試みている行がありますが、エラーメッセージは初期化されていません。 some_test()パスしかしsome_other_test()はダイが唯一の新しい行を含むエラーを報告します失敗した場合には

my $error; 
if (some_test()) { 
    $error = 'Some String'; 
} 
if (some_other_test()) { 
    die "$error\n"; 
} 

のようなものである可能性があります。また、警告が有効になっている場合は、警告が表示されます。

別の可能性は、タイプミスです。 use strict;を入力しないと、エラー変数が正しくない可能性があります。 use strict;なし

my $error = 'Some String'; 
if ($error) { 
    #note the typo (transposed ro to or) 
    die "$erorr\n"; 
} 

これは欠場する簡単な間違いすることができます。