Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: Propagating a Signal from DESTROY

by TilRMan (Friar)
on Aug 20, 2004 at 16:05 UTC ( #384644=note: print w/replies, xml ) Need Help??


in reply to Re^2: Propagating a Signal from DESTROY
in thread Propagating a Signal from DESTROY

The delayed-handler approach is only necessary where you don't want to be interrupted. In the OP's case, change from the real signal handler to the delayed one at the very end of the program -- right before the destructors.
  • Comment on Re^3: Propagating a Signal from DESTROY

Replies are listed 'Best First'.
Re^4: Propagating a Signal from DESTROY
by dpuu (Chaplain) on Aug 20, 2004 at 16:30 UTC
    My reading is that OP did want to be interrupted, but didn't want to jump straight to the end of the program. He wants the interrupt to kill the current eval-block, but then to do some more processing. I could make his example a bit more tricky by requiring that we recover from the interrupt, rather than dying. I.e.
    START: my $interrupted = 0; eval { local $SIG{INT} = sub { $interrupted = 1; die }; ... } if ($@) { if ($interrupted) { print "Operation was interrupted by ^C. Press <return> to retry, ^ +C to die\n"; scalar <STDIN>; goto START; } }
    If the interrupt hits when the code is in a DTOR, then it will not kill the eval block, and the user will not be asked to retry. In fact, the only effect of the interrupt will be to set $interrupted; and to cause some resource to not be properly cleaned up. We could detect that this happenned by checking:
    if ($@) { ... } elsif ($interrupted) { print "interrupted but didn't die. Must have hit ^C during DTOR. Sor +ry.\n"; die "better late than never!\n"; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://384644]
help
Chatterbox?
[r@j]: Actully $Process_Java this is getting from config file
[Discipulus]: choroba so much work porting from C and the resulting code exceed the 2 sec limit.. ;=(
[Corion]: r@j: But single quotes do not interpolate anything. print $Process; outputs something different than print '$Process';.

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (19)
As of 2017-10-23 15:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (280 votes). Check out past polls.

    Notices?