From canada@kt.rim.or.jp Tue Mar 24 19:25:35 1998
Path: kt.rim.or.jp!t3.rim.or.jp!st.rim.or.jp!not-for-mail
From: canada@tt.rim.or.jpp (Canada, Masakatz)
Newsgroups: fj.lang.perl
Subject: Re: 掲示板
Date: 19 Feb 1998 07:40:29 GMT
Organization: RIMNET
Lines: 16
Message-ID: <6cgnld$rn0$2@news.st.rim.or.jp>
References: <6c9fbn$gcl$1@news01.osaka.sannet.ne.jp> <6cetv2$nde$1@news.kt.rim.or.jp> <6cf1b9$5qd$1@news2.dti.ne.jp> <6cgn3j$rn0$1@news.st.rim.or.jp>
NNTP-Posting-Host: blue012.rimnet.co.jp
Mime-Version: 1.0
Content-Type: Text/Plain; charset=ISO-2022-JP
X-Newsreader: WinVN 0.99.7J PL01 (x86 32bit)
Xref: kt.rim.or.jp fj.lang.perl:2921

自己フォローです。

>        $oldbuf = shift(@lines);
>        print join("\n", reverse @lines), "\n";

この2行の間に、

next unless @lines;

が必要ですね。失礼。

# まだ何かあるかも

かなだまさかつ
canada@tt.rim.or.jpp^H