Parent Directory | Revision Log | Patch
revision 56 by dpavlin, Wed Feb 21 16:06:25 2007 UTC | revision 57 by dpavlin, Wed Feb 21 17:42:24 2007 UTC | |
---|---|---|
# | Line 179 sub finish { | Line 179 sub finish { |
179 | undef $writer; | undef $writer; |
180 | } | } |
181 | ||
182 | =for TODO | |
183 | ||
184 | sub _signal { | sub _signal { |
185 | my $s = shift; | my $s = shift; |
186 | warn "catched SIG $s\n"; | warn "catched SIG $s\n"; |
# | Line 190 $SIG{'__DIE__'} = \&_signal; | Line 192 $SIG{'__DIE__'} = \&_signal; |
192 | $SIG{'INT'} = \&_signal; | $SIG{'INT'} = \&_signal; |
193 | $SIG{'QUIT'} = \&_signal; | $SIG{'QUIT'} = \&_signal; |
194 | ||
195 | =cut | |
196 | ||
197 | =head2 snippet | =head2 snippet |
198 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |