[Mew-dist 05042] imput

[橋本弘藏]

imputを実行すると以下のエラーメッセージが出ます。Ver. upのたびに
History.pmの以下の修正部分に示した個所をコメントアウトして動かしていま
したが，何故出るのかをお教え頂きたく，MLに投稿することに致しました。

SunOS 4.1.4を使用しています。

エラーメッセージ

>imput
Bareword "O_BINARY" not allowed while "strict subs" in use at /usr/local/lib/perl5/site_perl/IM/History.pm line 90.
Compilation failed in require at /usr/local/bin/imput line 56.
BEGIN failed--compilation aborted at /usr/local/bin/imput line 56.

修正部分

    } elsif ($DBtype eq 'SDBM') {
#       if (&win95p || &os2p){
#           $db = tie %History, 'SDBM_File', $dbfile, O_CREAT|O_RDWR|O_BINAR$
#       } else {
            $db = tie %History, 'SDBM_File', $dbfile, O_CREAT|O_RDWR, &msg_m$
#       }
    }

   橋本@京大超高層 [電話 0774-38-3807 (直通); FAX 0774-31-8463]