[Mew-dist 05084] Re: impwagent with Port 0 on Solaris

[Daisuke Yabuki]

矢吹@日本サンともうします。

From: Gorochan ^o^ <kunito at example.com>
Subject: [Mew-dist 05083] impwagent with Port 0 on Solaris
Date: Mon, 22 Jun 1998 15:07:40 +0900
Message-ID: <19980622150735U.kunito at example.com>

kunito> Solaris-2.5.1 , Perl 5.004_66 , im version 980522 と表示される im-93 
kunito> を使っています。;)

kunito> server が無いと怒られてしまいます。ここで
kunito> 
kunito> perl -e '$name="/tmp/im-kunito/pw"; \
kunito> print "socket\n" if (-S $name); print "pipe\n" if (-p $name);'
kunito> 
kunito> を実行すると、pipe になってしまいました。
kunito> Wnn のsocket と思われる /tmp/jd_sockV6 なども pipe と表示されました。

私の以下の環境では、

oasis:/home/tse/dxy[3:16pm] uname -a 
SunOS oasis 5.6 Generic sun4u sparc SUNW,Ultra-1
oasis:/home/tse/dxy[3:17pm] perl -v

This is perl, version 5.004_04 built for sun4-solaris

Copyright 1987-1997, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

このように正しく判定しているようです。

oasis:/home/tse/dxy[3:14pm] ls -al /tmp/.X11-pipe/X0
prw-rw-rw-   1 root     root           0 Jun 19 14:00
/tmp/.X11-pipe/X0
oasis:/home/tse/dxy[3:14pm] perl -e '$name="/tmp/.X11-pipe/X0"; print "socket\n" if (-S $name); print "pipe\n" if (-p $name);'
pipe
oasis:/home/tse/dxy[3:14pm] ls -al /tmp/.X11-unix/X0
srwxrwxrwx   1 root     root           0 Jun 19 14:00 /tmp/.X11-unix/X0
oasis:/home/tse/dxy[3:15pm] perl -e '$name="/tmp/.X11-unix/X0"; print "socket\n" if (-S $name); print "pipe\n" if (-p $name);'
socket
oasis:/home/tse/dxy[3:14pm] perl -e '$name="/tmp/jd_sockV6"; print "socket\n" if (-S $name); print "pipe\n" if (-p $name);'
socket

ご参考まで。
--
矢吹 大輔