Path: utzoo!utgpu!watmath!clyde!att!rutgers!pyrnj!pyrdc!uunet!mcvax!hp4nl!philmds!nlgvax!hans
From: hans@nlgvax.UUCP (Hans Zuidam)
Newsgroups: comp.sources.d
Subject: Why can't I print the SIG array in perl?
Keywords: perl, signals
Message-ID: <161@nlgvax.UUCP>
Date: 19 Nov 88 19:06:53 GMT
Reply-To: hans@pcg.philips.nl (Hans Zuidam)
Followup-To: comp.sources.d
Organization: Philips Research Geldrop
Lines: 29

I think I've found a 'bug' in the perl SIG array. The following
script doesn't print anything. Substituting SIG by ENV nicely
shows my environment.

    eval "exec /usr4/hans/bin.${ARCH}/perl.${ARCH} -Sw $0 $*"
        if $run_shell;

    @Keys   = keys(SIG);
    @Values = values(SIG);

    while ($#Keys >= 0)
    {
        print pop(Keys), " = ", pop(Values), "\n";
    }

Is this indeed a bug? Is there a fix?

B.T.W: The eval at the top is because the #! construct does not use
your PATH. We have multiple architectures (Sun3, Sun4, Sun386i
and VAX), by setting ARCH to `arch`, you get the right perl :-).

Thanks in advance,

						Hans
-- 
Hans Zuidam                                    E-Mail: hans@pcg.philips.nl
Philips Telecommunications and Data Systems,   Tel: +31 40 892288
Project Centre Geldrop, Building XR
Willem Alexanderlaan 7B, 5664 AN Geldrop       The Netherlands