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:
Jarkko Hietaniemi
Date:
March 14, 2001 06:35
Subject:
Re: 9122 and sigaction/switch on HP-UX 11.00
Message ID:
20010314083454.X4533@chaos.wustl.edu
On Wed, Mar 14, 2001 at 02:55:07PM +0100, H.Merijn Brand wrote:
> On Wed, 14 Mar 2001 10:35:21 +0100, "H.Merijn Brand" <h.m.brand@hccnet.nl> wrote:
> > --- 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'))
> 
>    s/\)\)$/)/
> 
> Damn I *hate* those typos :-)
> 
> >     { 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?

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

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