Re: [Expectperl-discuss] re: building Expect.pm on solaris 9

[Zhisong J. <jj...@dy...>]

Helo, 
I make the change at line 118 as suggeted. however it didn't work.
Do you know where can I find or download  perl 5.00503 for solaris 9.
Thank you very much .

Jason


On Fri, 2004-10-08 at 16:48, Austin Schutz wrote:
> On Fri, Oct 08, 2004 at 11:28:37AM +0200, Roland Giersig wrote:
> > 
> > Hmm, in the 'perl Makefile.PL' step I'm trying to figure out what 
> > constants are defined by compiling test progs for each constant. Austin, 
> > as you seem to have a solaris machine on your hands, could you look into 
> > that and see why it gets defined?
> > 
> 
> 	On my solaris machine I'm not able to replicate the issue because
> I'm running an old perl: 5.00503, which doesn't exhibit this problem and
> I can't get 5.8.4 to compile.
> 	However, I _was_ able to replicate this on my home linux workstation
> by commenting out #define TIOCSCTTY in /usr/include/asm/ioctls.h.
> 
> 	I'm not sure why the code in question is being executed. Running
> it in the debugger I still couldn't figure it out (output follows). It looks
> to me like a perl bug. However, I was able to work around it by changing line
> 118 to:
> 
> if (defined TIOCSCTTY && TIOCSCTTY) {
> 
> 	which _should_ be valid - I doubt any vendor defines TIOCSCTTY as 0.
> 
> 	Austin
> 
>   DB<5> p defined TIOCSCTTY
> 
>   DB<6> l
> 118==>    if (defined TIOCSCTTY) {
> 119:        if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
> 120:          warn "warning: TIOCSCTTY failed, slave might not be set as control
> ling terminal: $!" if $^W;
> 121         }
> 122       } elsif (defined TCSETCTTY) {
> 123:        if (not defined ioctl( ${*$self}{'io_pty_slave'}, TCSETCTTY, 0 )) {
> 124:          warn "warning: TCSETCTTY failed, slave might not be set as control
> ling terminal: $!" if $^W;
> 125         }
> 126       }
> 127 
>   DB<6> s
> IO::Pty::make_slave_controlling_terminal(/root/.cpan/build/IO-Tty-1.02/blib/lib/
> IO/Pty.pm:119):
> 119:        if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
>   DB<6> p defined TIOCSCTTY
> 
>   DB<7> p defined TIOCSCTTY
> 
>   DB<8> if(defined TIOCSCTTY) { print "defined\n"; }
> 
>   DB<9> n
> IO::Pty::make_slave_controlling_terminal(/root/.cpan/build/IO-Tty-1.02/blib/lib/IO/Pty.pm:119):
> 119:        if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
>   DB<9> n
> Use of uninitialized value in ioctl at /root/.cpan/build/IO-Tty-1.02/blib/lib/IO/Pty.pm line 119, <XT> line 1.
>         IO::Pty::make_slave_controlling_terminal('IO::Pty=GLOB(0x8171f8c)') called at test.pl line 66
> IO::Pty::make_slave_controlling_terminal(/root/.cpan/build/IO-Tty-1.02/blib/lib/IO/Pty.pm:120):
> 120:          warn "warning: TIOCSCTTY failed, slave might not be set as controlling terminal: $!" if $^W;
> 
> 
> 
> -------------------------------------------------------
> This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
> Use IT products in your business? Tell us what you think of them. Give us
> Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
> http://productguide.itmanagersjournal.com/guidepromo.tmpl
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>