Re: [MacPerl-Porters] New MacPerl build system now available!

["Keitarou Miyazaki" <KHC03156@nifty.ne.jp>]

At 05 May 2000 23:24:14 +0200 Matthias Neeracher <neeri@iis.ee.ethz.ch> 
wrote:
>> So, I copied file "HD:MacPerl:perl-5.6.0:macos:dl_mac.xs" to
>> "HD:MacPerl:perl-5.6.0:ext:DynaLoader:",
>
> Hmm. That should have ended up there in the first place. I'll have to check my
> patch.
>
>> "BuildProgram all" again. It stops with this message.
>
>>> RETVAL = connID;
>>> ^
>>> File "DynaLoader.xs"; line 78 #Error: undefined identifier 'RETVAL'
>
> Strange. This should not occur after a corrext xsubpp run.

When I was inspecting xsubpp, I found my miniperl's "|" operator did not
work properly. For example, I created a file named "mytest" like below,

    #!miniperl
    { ### Test1 ###
        my($a, $b, $eq) = ('a', 'b', 0);
        $eq |= $a eq $b;
        print "Test1: $eq\n";
    }
    { ### Test2 ###
        my($a, $b, $eq) = ('a', 'b', 0);
        $eq ||= $a eq $b;
        print "Test2: $eq\n";
    }
    { ### Test3 ###
        my($a, $b, $eq) = ('a', 'b', 0);
        $eq = $eq ? $eq : $a eq $b;
        print "Test3: $eq\n";
    }

then run this file.

    :miniperl mytest
    Test1: 2147483648
    Test2:
    Test3:

Test1 returns a strange value. So, I modified xsubpp file like below,

    *** xsubpp      Sun May  7 00:01:59 2000
    --- xsubpp.old  Sun May  7 04:02:03 2000
    ***************
    *** 447,448 ****
    !       $thisdone ||= $var_name eq "THIS";
    !       $retvaldone ||= $var_name eq "RETVAL";
    --- 447,448 ----
    !       $thisdone |= $var_name eq "THIS";
    !       $retvaldone |= $var_name eq "RETVAL";

then "BuildProgram all" command runs successfully(stops at x2p). But
still my perl command's "|" operator does not work properly.

My environment is MacOS 8.6, MPW-GM(Feb2K, and updated files in apple
ftp site), and no Metrowerks product. Any good ideas?

Thanks.
--
//////////////////////////////////////////////
// K. Miyazaki
//     KHC03156@nifty.ne.jp
//     http://homepage2.nifty.com/kay/McPLW/
//////////////////////////////////////////////

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-porters-request@macperl.org