Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!tokyonet.ad.jp!wincgw1!senri-nc!odins-suita!icspub!matusita
From: matusita@ics.es.osaka-u.ac.jp (Makoto MATSUSHITA)
Newsgroups: fj.sys.news
Subject: Re: perl5.002 on NEWS-OS 4.2.1a+RD: about /lib/libdbm.a trouble
Date: 08 Mar 1996 12:54:37 GMT
Organization: Torii Laboratory, Dept. of Information & Computer Sciences, Osaka
	Univ., JAPAN
Lines: 29
Distribution: world
Message-ID: <MATUSITA.96Mar8215337@skylark.ics.es.osaka-u.ac.jp>
References: <MATUSITA.96Mar1054322@skylark.ics.es.osaka-u.ac.jp>
	<4ho51r$a02@hemp.imel.kyoto-u.ac.jp>
	<4ho8h0$c30@hemp.imel.kyoto-u.ac.jp>
NNTP-Posting-Host: skylark.ics.es.osaka-u.ac.jp
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
In-reply-to: nakaji@zeisei3.dpri.kyoto-u.ac.jp's message of 8 Mar 1996 03:11:28 GMT
Xref: galaxy.trc.rwcp.or.jp fj.sys.news:3272
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.sys.news&nb=3272&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


nakaji> $B3NG'$G$-$^$7$?!#2?$NJ86g$b$$$o$:$K(B posix $B$N%F%9%H$K<:GT$7$?$@$1$G$7$?!#(B

$B$H!$$$$&$3$H$O!$$3$l$G(B GDBM $B$H$b6&MQ2DG=!$$J$s$G$7$g$&$+(B ?

POSIX test $B$K4X$7$F$O!$(Bhints $B$G(B useposix='n' $B$9$l$P$=$b$=$bLdBj$"$j$^(B
$B$;$s!%$^$?!$B?J,$=$N$^$^(B make test $B$9$k$H!$(B1$B$D$@$1(B test $B$,DL$j$^$;$s(B
($B$b$7$+$9$k$H;d$@$1$+$b$7$l$^$;$s$,(B)$B!%(B

$B!E!E$,!$B?J,$3$l$C$F(B perl $B$,0-$$$H$$$&$h$j$O;EMM$N$h$&$J5$$b$7$J$/$b$J(B
$B$$$N$G(B($B4JC1$K(B C $B$GF1MM$N$3$H$r$d$C$F$_$?$1$I$&$^$/$$$+$J$+$C$?(B)$B!$0J2<(B
$B$N$h$&$KF($2$^$7$?!%$3$l$G$b0l1~(B ungetc $B$N3NG'$O$G$-$k(B ^_^;

--- t/lib/filehand.t.distTue Feb 13 05:01:17 1996
+++ t/lib/filehand.tFri Mar  1 03:47:12 1996
@@ -25,6 +25,6 @@
 $buffer = <$fh>;
 print $buffer eq "#!./perl\n" ? "ok 3\n" : "not ok 3\n";
 
-ungetc STDIN 65;
-CORE::read(STDIN, $buf,1);
+ungetc $fh 65;
+CORE::read($fh, $buf,1);
 print $buf eq 'A' ? "ok 4\n" : "not ok 4\n";

# VMS $B$N>l9g$K$3$s$JF($2$r$7$h$&$H$$$&$N$r8+$?5-21$,$"$C$?$N$G$7$?!%(B

- -
Makoto `MAR_kun' MATSUSHITA
