develooper Front page | perl.perl5.porters | Postings from March 2001

Re: 9122 and sigaction/switch on HP-UX 11.00

Thread Previous | Thread Next
From:
H . Merijn Brand
Date:
March 14, 2001 01:45
Subject:
Re: 9122 and sigaction/switch on HP-UX 11.00
Message ID:
20010314103331.BFFF.H.M.BRAND@hccnet.nl
On Tue, 13 Mar 2001 18:41:26 +0100, "H.Merijn Brand" <h.m.brand@hccnet.nl> wrote:
> On Tue, 13 Mar 2001 11:08:14 -0600, Jarkko Hietaniemi <jhi@iki.fi> wrote:
> > > And from mail:
> > > 
> > > 1..18
> > > ok 1
> > > not ok 2
> > 
> > Hmmm, maybe no tty causes the failure...?
> 
> Passes in both variations:
for only HP-UX, which I realized when I woke up in the middle of the night. All
tests passed sigaction on the other systems, so we have to do better. This
patch to be applied over the previous should do the job the way it ....

*** /i2/pro/3gl/CPAN/perl-5.7.1/t/lib/sigaction.t       Tue Mar 13 23:25:09 2001
--- /l1/pro/3gl/CPAN/perl-5.7.1/t/lib/sigaction.t       Wed Mar 14 10:32:16 2001
***************
*** 43,49 ****
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
  }

! if($oldaction->{HANDLER} eq (-t STDIN ? 'DEFAULT' : 'IGNORE'))
    { print "ok 2\n" } else { print "not ok 2\n"}
  print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";

--- 43,50 ----
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
  }

! if($oldaction->{HANDLER} eq 'DEFAULT' or
!    -t STDIN && $oldaction->{HANDLER} eq 'IGNORE'))
    { print "ok 2\n" } else { print "not ok 2\n"}
  print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";


-- 
H.Merijn Brand           Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.005.03, 5.6.0, 5.6.1, 5.7.1 & 623 on HP-UX 10.20 & 11.00, AIX 4.2
   AIX 4.3, WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.022 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About