Re: Trapping ctrl/y in VMSPERL

Hi and thanks for the reply. I sent this message already, but forgot to hit "Reply All" Sorry. 
 
Anyhow,
 
I'm running version 5.8.6 and I tried this script: 
 
$SIG{QUIT} = \&routine;
 
while (1) {
 print "waiting\n";
 sleep(1);
}
 
sub routine {
  print "YAY\n";
}
 
when I did a Ctrl-Y, it did not catch the interupt. I even tried using a line like:
 
foreach (keys %SIG) {
  $SIG{$_} = \&routine;
}
 
and still couldn't trap CTRL-Y. I could get CTRL-C, but I really need to trap CTRL-Y.
 
Any ideas?
 
-Doug

--- On Mon, 12/29/08, Craig Berry <[email protected]> wrote:

From: Craig Berry <[email protected]>
Subject: Re: Trapping ctrl/y in VMSPERL
To: [email protected]
Cc: [email protected]
Date: Monday, December 29, 2008, 9:17 PM

 
On Sunday, December 28, 2008, at 08:52PM, "doug brann"
<[email protected]> wrote:

> I'm trying to trap ctrl/y in a VMS Perl script. Can anyone help? It
>isn't a signal, like ctrl-c, so the usual signal trapping won't
>work.

Actually it looks like SS$_CONTROLY is mapped to SIGQUIT.  Have you tried
trapping that?    It may depend of what version of Perl you are running.