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 15, 2001 03:16
Subject:
Re: 9122 and sigaction/switch on HP-UX 11.00
Message ID:
20010315120742.C01C.H.M.BRAND@hccnet.nl
On Wed, 14 Mar 2001 08:34:54 -0600, Jarkko Hietaniemi <jhi@iki.fi> wrote:
> > >     { print "ok 2\n" } else { print "not ok 2\n"}
> > >   print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";
> 
> Noticed that typo, fixed it, and swapped the (-t STDIN ...) case
> first, since that is the more usual case.  Microoptimizing, who, me?

Are we both sleeping/sleepy? Who started to revert the test?

*** /i2/pro/3gl/CPAN/perl-5.7.1/t/lib/sigaction.t       Wed Mar 14 14:36:16 2001
--- /l1/pro/3gl/CPAN/perl-5.7.1/t/lib/sigaction.t       Thu Mar 15 12:05:17 2001
***************
*** 43,51 ****
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
  }

! if((-t STDIN && $oldaction->{HANDLER} eq 'IGNORE') ||
     $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";

  sigaction(SIGHUP, $newaction, $oldaction);
--- 43,51 ----
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
  }

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

  sigaction(SIGHUP, $newaction, $oldaction);

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