Newsgroups: fj.comp.lang.perl,fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!news.trc!imnet3!nspixp2!newsgw5.odn.ne.jp!newsgw6.odn.ne.jp!kbtmx.eto.kubota.co.jp!ktka031!haro
From: haro@ktkl129.tk.kubota.co.jp
Subject: [SOLVED] Re: [Help] perl5 'make test' error.
Organization: KUBOTA Corp. Technology Development Headquarters, Tokyo Japan
Date: Sun, 24 Jan 1999 07:14:08 GMT
Message-ID: <1999Jan24.071408.22416@ktkl129.tk.kubota.co.jp>
Followup-To: fj.comp.lang.perl
References: <1999Jan20.043609.29905@ktkl129.tk.kubota.co.jp>
Lines: 44
Xref: galaxy.trc.rwcp.or.jp fj.comp.lang.perl:904 fj.lang.perl:3055
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=3055&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.

$B>>ED!w%/%\%?$H?=$7$^$9!#(B

$B0JA0;d$,<ALd$7$?!V(Bmake test$B$G%(%i!<$,H/@8!W$9$k7o$G$9$,!"(B
$BL5;v2r7hCW$7$^$7$?$N$G!"Js9p$7$^$9!#(B

In article <1999Jan20.043609.29905@ktkl129.tk.kubota.co.jp>,
 <haro@ktkl129.tk.kubota.co.jp> wrote:
>$B$=$3$G(B 'make test'$B$r<B9T$7$?$H$3$m!"(Bop/magic$B$N9`L\$G%(%i!<$,=P$F(B
>$B$7$^$$$^$9!#%(%i!<$NFbMF$O!"0J2<$NDL$j$G$9!#(B
>
>prompt# op/magic.t
>1..35
>ok 1
>[$BCfN,(B]
>ok 22
>not ok 23
># :$^X is ./show-shebang, $0 is ./show-shebang
>:!=:$^X is ./perl, $0 is ./show-shebang
>:

$B%=!<%9$N(B toke.c$B$N(B1890$B9TL\IU6a$K!"%9%/%j%W%H$N(B arg[0]$B$H(B $^X$B$K4X$9$k(B
$BFCJL=hM}$,$"$j!"$3$NItJ,$,LdBj$H$J$C$F$$$?$h$&$G$7$?!#(B

    #ifdef ARG_ZERO_IS_SCRIPT
        if (ipathend > ipath) {
            /*
             * HP-UX (at least) sets argv[0] to the script name,
             * which makes $^X incorrect.  And Digital UNIX and Linux,
             * at least, set argv[0] to the basename of the Perl
             * interpreter. So, having found "#!", we'll set it right.
             */
    [$B0J2<N,(B]
    #endif /* ARG_ZERO_IS_SCRIPT */

$B$h$C$F!"(BConfigure$B$K(B ARG_ZERO_IS_SCRIPT$B$NDj5A$rDI2C$9$k$3$H$G2r7h$9$k(B
$B$3$H$,$G$-$^$7$?!#(B

$B0J>e(B

--------------------------------------------------------------------------
          _ _           $B3t<02q<R%/%\%?(B $BEl5~K\<R(B $B5;=Q3+H/K\It(B
-|- /_\  |_|_|            $B>>ED(B  $B=!9@(B
/|\ |_|  |_|_|          E-mail: haro@tk.kubota.co.jp
                        Tel: 03-3245-3318  Fax: 03-3245-3315
