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 13, 2001 09:43
Subject:
Re: 9122 and sigaction/switch on HP-UX 11.00
Message ID:
20010313184043.BFFC.H.M.BRAND@hccnet.nl
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:

*** t/lib/sigaction.t       Fri Mar  9 02:47:18 2001
--- t/lib/sigaction.t       Tue Mar 13 18:40:10 2001
***************
*** 43,49 ****
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
  }

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

--- 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";


-- 
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