DBD :: Oracleがシステムコールの破損を引き起こしていますか？

Question

は、Oracleデータベースに接続することにより、いくつかの奇妙な行動を見て、その後、外部関数を呼び出し、$の値は？常に-1です。
問題のマシンは、DBD :: Oracleの1.20およびDBI 1.602で、標準AIX5.3を実行しています。

#!/usr/bin/perl -w 
use DBI; 

CORE::system "pwd"; 
print "Before connect: $?\n"; 
DBI->connect('dbi:Oracle:', 'pwd', 'pwd'); 
print "Before system: $?\n"; 
CORE::system "pwd"; 
print "After system: $?\n"; 
CORE::system "pwd"; 
print "After system: $?\n"; 

Before connect: 0 
Before system: 0 
/usr/local/bin 
After system: -1 
/usr/local/bin 
After system: -1 

これは、異なるAIX 5.3マシンからの結果である、私が見ることができる唯一の違いは、それがDBDを実行していることである：オラクル1.22およびDBI 1.607。しかし、それらのモジュールの変更ログを見ると、それに関連するものは何も見えません。 OracleとDBI（これは、生産機械であるとすぐにそれを行うにはhesitent）：私はDBDをアップグレードする以外試すことができ、さらに、物事のため 任意のアイデア。 perldoc -f systemから

Answer 1

：-1の

戻り値は、プログラムまたはwait(2)システムコール（理由$!を検査）のエラーを起動に失敗したことを示しています。

システムコールがexecpwdプログラムにもうできないようです。私はこの投稿は、数ヶ月事実の後であるが、私は同じ問題に遭遇しておりますので、私はあなたのポストにつまずく誰のための詳細私の回避策をよ実現

my $rc = system "pwd"; 
if ($rc == -1) { 
    die "system call failed: $!"; 
} elsif ($rc & 0b0000_0000_0111_1111) { 
    die "system call died due to signal ", $rc & 0b0000_0000_0111_1111; 
} elsif ($rc & 0b1111_1111_0000_0000) { 
    warn "system call returned non-zero exit code: ", $rc >> 8; 
} 

Answer 2

：にあなたのsystemの呼び出しを変更してみてください。 OracleのOCIライブラリが別途SIGCHILDを扱うの

異なるバージョン（例えば、私はあなたの11gR2のに問題はなく、11gR1のを持っています）。あなたは

DBI-を変更することにより、接続を遺す使用を避ける場合>接続（ 'DBI：オラクル：'、 'PWD' 'PWD'）;

へ

DBI->接続（ 'DBI：オラクル：'、 'PWD'、 'PWD'）;

あなたはあなたの問題を見つけることができますが表示されなくなります。もちろん、リスナーを経由して接続したくないかもしれませんが、その解決策はありません。