100+ results results for '= $@ || Zombie error' (194 ms)
17
18IPC::Open3 - open a process for reading, writing, and error handling using open3()
19
36connects CHLD_OUT for reading from the child, CHLD_IN for writing to
37the child, and CHLD_ERR for errors. If CHLD_ERR is false, or the
38same file descriptor as CHLD_OUT, then STDOUT and STDERR of the child
74simple as calling C<waitpid $pid, 0> when you're done with the process.
75Failing to do this can result in an accumulation of defunct or "zombie"
76processes. See L<perlfunc/waitpid> for more information.
104
105This is a CPAN module that has better error handling and more facilities
106than Open3.
126# spawn the given $cmd and connect rdr for
127# reading, wtr for writing, and err for errors.
128# if err is '', or the same as rdr, then stdout and
Task.pm https://github.com/pplu/Rex.git | Perl | 324 lines
236
237 Rex::Logger::debug("Current Error-Code: " . $ssh->error());
238 Rex::Logger::info("Connected to $server, trying to authenticate.");
248
249 Rex::Logger::debug("Current Error-Code: " . $ssh->error());
250
289 else {
290 # inside a transaction, no little small funny kids, ... and no chance to get zombies :(
291 &$forked_sub();
helo git://github.com/smtpd/qpsmtpd.git | Perl | 542 lines
85from an IP that reverses to mx1.slc.paypal.com. While that's technically an
86error, I believe it's an error to reject mail based on it. Especially since
87SLD and TLD match.
310 if ($self->is_regex_match($host, $bad)) {
311 return $error, "in badhelo";
312 }
314 if ($host eq lc $bad) {
315 return $error, "in badhelo";
316 }
414 }
415 $self->log(LOGERROR, "skip, query failed (", $res->errorstring, ")");
416 return;
442 $self->log(LOGINFO, $res->errorstring);
443 return "error getting reverse DNS for $ip", "rDNS " . $res->errorstring;
444 };
shellz.pm http://isr-evilgrade.googlecode.com/svn/trunk/ | Perl | 548 lines
37
38#ignore child's process to avoid zombie
39$SIG{CHLD} = 'IGNORE';
58 my $ret = $isrmain->loadmodules();
59 if ($ret != 1){ # loadmodules error
60 $isrmain->println($ret);
274 my $response = $self->{$server_type}->loadconfig($self->{'isrmain'});
275 if ($response != 1){ #error loadconfig
276 $self->{'isrmain'}->println($response);
294 if ($self->{$server_type}->{'Base'}->{'error'}){
295 $self->{'isrmain'}->println("\n\nError: $self->{$server_type}->{'Base'}->{'error'}\n");
296 }
Shell.pm http://isr-evilgrade.googlecode.com/svn/trunk/ | Perl | 1028 lines
35$SIG{CHLD} = 'IGNORE';
36#kill zombies
37#$SIG{INT} = sub { die "[shellz] - $$ dying\n"; };
130 #communication between STDIN thread and prompt thread
131 socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "[ERROR] - STDIN socketpair: $!";
132 CHILD->autoflush(1);
135 #communication MSG entities
136 socketpair(CHILDM, PARENTM, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "[ERROR] - MSG socketpair: $!";
137 CHILDM->autoflush(1);
144
145 die "[ERROR] Can't fork STDIN thread: $!" unless defined (my $pid = fork());
146 $o->{pid} = $pid;
webserver.pm http://isr-evilgrade.googlecode.com/svn/trunk/ | Perl | 590 lines
51 'current' => undef,
52 'error' => "",
53 'whoami' => "WEBSERVER",
79
80 #ignore child process avoid zombies.
81 $SIG{CHLD} = 'IGNORE';
94 if (!$listen_socket ){
95 $self->{'Base'}->{'error'} = "[$self->{'Base'}->{'whoami'}] - Cant't create a listening socket: $@";
96 return;
98 if( !$ssl_socket ){
99 $self->{'Base'}->{'error'} = "[$self->{'Base'}->{'whoami'}] - Cant't create a listening SSL socket: " . &IO::Socket::SSL::errstr . "\n";
100 return;
253 local *FILE;
254 my $error;
255
OpenVZ.pm https://gitlab.com/cmalfait/collectd | Perl | 247 lines
46 my ($veid, $name) = @_;
47 my @rx_fields = qw(if_octets if_packets if_errors drop fifo frame compressed multicast);
48 my @tx_fields = qw(if_octets if_packets if_errors drop fifo frame compressed);
66
67 for my $instance (qw(if_octets if_packets if_errors)) {
68 plugin_dispatch_values({
164
165 my $ps_states = { 'paging' => 0, 'blocked' => 0, 'zombies' => 0, 'stopped' => 0,
166 'running' => 0, 'sleeping' => 0 };
167 my $state_map = { 'R' => 'running', 'S' => 'sleeping', 'D' => 'blocked',
168 'Z' => 'zombies', 'T' => 'stopped', 'W' => 'paging' };
169
DSL.pm git://github.com/PerlDancer/Dancer2.git | Perl | 533 lines
141sub warning { shift->app->log( warning => @_ ) }
142sub error { shift->app->log( error => @_ ) }
143
191
192sub send_error { shift->app->send_error(@_) }
193
331 } or do {
332 my $error = $@ || 'Zombie Error';
333 $Dancer2::Core::Route::ERROR_HANDLER
333 $Dancer2::Core::Route::ERROR_HANDLER
334 ? $Dancer2::Core::Route::ERROR_HANDLER->($error)
335 : $dsl->app->logger_engine->log(
359
360 ( error_cb => $opts{'on_error'} )x!! $opts{'on_error'},
361 );
StreamWriter.pm http://streamdb.googlecode.com/svn/trunk/ | Perl | 501 lines
85 $self->{_DBH}->{mysql_auto_reconnect} = 1; # we will auto-reconnect on disconnect
86 $self->{_DBH}->{HandleError} = \&_sql_error_handler;
87
300
301 my $last_ring_errors = 0;
302 my @to_insert;
316 #VORTEX_ERRORS TOTAL: 119275 IP_SIZE: 0 IP_FRAG: 0 IP_HDR: 0 IP_SRCRT: 0 TCP_LIMIT: 5 TCP_HDR: 0 TCP_QUE: 119270 TCP_FLAGS: 0 UDP_ALL: 0 SCAN_ALL: 0 VTX_RING: 0 VTX_IO: 0 VTX_MEM: 0 OTHER: 0
317 elsif ($file =~ /^VORTEX_ERRORS.*VTX_RING: (\d+)/){
318 my $errors = $1;
319 if ($errors > $last_ring_errors){
320 my $new_errors = $errors - $last_ring_errors;
321 $self->log->error('Dropped ' . $new_errors . ' connections because we could not process them fast enough.');
322 }
323 $last_ring_errors = $errors;
324 }
mtr_timer.pl https://gitlab.com/envieidoc/tomato | Perl | 159 lines
75 {
76 mtr_error("can't fork timer, error: $!");
77 }
124 # As the timers are so simple programs, we trust them to terminate,
125 # and use blocking wait for it. We wait just to avoid a zombie.
126 waitpid($tpid,0);
133
134 mtr_error("Asked to stop timer '$name' not started");
135}
elsa.pl http://enterprise-log-search-and-archive.googlecode.com/svn/trunk/ | Perl | 557 lines
58 mysql_auto_reconnect => 1,
59 HandleError => \&_sql_error_handler,
60 })
143
144sub _sql_error_handler {
145 my $errstr = shift;
230 $args->{total_processed} = $args->{batch_counter};
231 $args->{total_errors} = $args->{error_counter};
232
234 $Log->debug("Finished job process_batch with cache hits: $args->{batch_counter} and " . (scalar keys %{ $args->{cache_add} }) . ' new programs');
235 $Log->debug('Total errors: ' . $args->{error_counter} . ' (%' . (($args->{error_counter} / $args->{batch_counter}) * 100) . ')' ) if $args->{batch_counter};
236
279 if ($@){
280 $Log->error('Child encountered error: ' . $@);
281 }
cmd_process_forker.pl https://gitlab.com/pooja043/Globus_Docker_1 | Perl | 222 lines
41my $log_dir = "cmds_log.$$";
42mkdir($log_dir) or die "Error, cannot mkdir $log_dir";
43
66 if(-f ($completed_file_name)){
67 open (my $fh, "<", $completed_file_name) or die "Error, cannot open completion file for reading $completed_file_name";
68 while (<$fh>) {
73 ## load all commands in memory... filesystem glitches can otherwise result in premature termination with inadvertent success status.
74 open (my $fh, $cmds_file) or die "Error, cannot open file $cmds_file";
75
112
113 ## collect the other finished children to avoid build-up of zombie processes.
114 for (1..$num_finished-1) {
136 unless ($num_failed_jobs == $ENCOUNTERED_FAILURE) {
137 print "\n\nError, $ENCOUNTERED_FAILURE jobs failed, but only have recorded $num_failed_jobs ... very strange and unexplained.\n\n";
138 # I haven't seen this in my testing, but it's clear that others have, and I haven't figured out why or how yet... bhaas
Job.pm https://github.com/Tailgunner/CataMooseC.git | Perl | 370 lines
62clean up your child processes before terminating, you don't have to worry.
63If not, you will leave hanging processes (called "zombie" processes in Unix).
64
85Note: this method returns C<undef> if CreateJobObject() fails. Look at C<$^E>
86for more detailed error information.
87
98Note: this method returns C<undef> if CreateProcess() fails. See C<$^E> for
99more detailed error information. One reason this will fail is if the calling
100process is itself part of a job, and the job's security context does not allow
210An open output filehandle or filename (will be opened for append). The
211resulting filehandle will be used for the child's standard error handle.
212
212
213By default, the child process shares the parent's standard error.
214
monitor.pl https://gitlab.com/bithinalangot/gameserver | Perl | 245 lines
135 unless($ps_banner_once) {
136 mylog("ZOMBIES: check for zombies with help of OS-tool '$ps_bin'",0,0,0,$log_operation);
137 $ps_banner_once = 1;
141 unless(open(PS,"$ps_bin ux |")) {
142 mylog("getting list of processes with '$ps_bin': $!",0,0,0,$log_error);
143 return;
187 if (get_config(0,'kill_zombies',0)) {
188 mylog("ZOMBIE: KILLING process $pid from $user = '$cmd'",0,0,0,$log_error);
189 kill(-9,$pid);
190 } else {
191 mylog("ZOMBIE: process $pid from $user = '$cmd'",0,0,0,$log_error);
192 }
206 unless($ps_bin) {
207 mylog("can not find 'ps'-binary for zombie detection",0,0,0,$log_error);
208 $ps_bin='IGNORE';
FlexSerializer.pm git://github.com/tsee/Data-FlexSerializer.git | Perl | 721 lines
268 my $coderef = eval $code or do{
269 my $error = $@ || 'Zombie error';
270 die "Couldn't create the deserialization coderef: $error\n The code is: $code\n";
378 my $coderef = eval $code or do{
379 my $error = $@ || 'Clobbed';
380 die "Couldn't create the deserialization coderef: $error\n The code is: $code\n";
GraphViz.pm git://pkgs.fedoraproject.org/perl-Tk-GraphViz | Perl | 2321 lines
120# It is important to do a waitpid() on all the background processes
121# to prevent them from becoming orphans/zombies
122######################################################################{
165 if ( $stat == 0xff00 ) {
166 $proc->{error} = "exec failed";
167 }
173 $stat &= ~0x80;
174 $proc->{error} = "Killed by signal $stat (coredump)";
175 } else {
175 } else {
176 $proc->{error} = "Kill by signal $stat";
177 }
186 $proc->{status} = 127;
187 $proc->{error} = "pid $proc->{pid} gone, but no status!";
188 $finished = 1;
Statgrab.pm git://pkgs.fedoraproject.org/perl-Unix-Statgrab | Perl | 748 lines
22%EXPORT_TAGS = ( 'all' => [ qw(
23 get_error drop_privileges
24 get_host_info
45
46 SG_ERROR_ASPRINTF
47 SG_ERROR_DEVSTAT_GETDEVS
47 SG_ERROR_DEVSTAT_GETDEVS
48 SG_ERROR_DEVSTAT_SELECTDEVS
49 SG_ERROR_ENOENT
186 my ($error, $val) = constant($constname);
187 if ($error) { croak $error; }
188 {
241
242Each of the provided functions follow a simple rule: It never takes any argument and returns either an object (in case of success) or C<undef>. In case C<undef> was returned, check the return value of C<get_error>. Also see L<"ERROR HANDLING"> further below.
243
624
625One function C<get_error> exists that will return the error encountered during the la
migrate-3-4.px git://github.com/octo/collectd.git | Perl | 388 lines
34# ! ! hddtemp ! x ! ! !
35# ! interface ! if_errors ! ! x ! !
36# ! interface ! if_packets ! ! x ! !
98 hddtemp => sub { $_ = shift; $_->{'plugin'} = 'hddtemp'; $_->{'type'} = 'temperature'; $_->{'type_instance'} = $_->{'type_instance'}; $_; },
99 if_errors => sub { $_ = shift; $_->{'type_instance'} = $_->{'plugin_instance'}; $_->{'plugin_instance'} = undef; $_; },
100 if_packets => sub { $_ = shift; $_->{'type_instance'} = $_->{'plugin_instance'}; $_->{'plugin_instance'} = undef; $_; },
117 setattr symlink wrcache write)], to => 'value' },
118 processes => { from => [qw(running sleeping zombies stopped paging blocked)], to => 'value' },
119 swap => { from => [qw(cached free used resv)], to => 'value', type_instance => [qw(cached free used reserved)] }
Voice_Text.pm https://misterhouse.svn.sourceforge.net/svnroot/misterhouse | Perl | 515 lines
60 unless ($VTxt) {
61 print "\n\nError, could not create ms Speech TTS object. ", Win32::OLE->LastError(), "\n\n";
62 return;
146 my $pid = fork;
147 $SIG{CHLD} = "IGNORE"; # eliminate zombies created by FORK()
148 if ($pid) {
175 if ($ViaVoiceTTS) {
176 $SIG{CHLD} = "IGNORE"; # eliminate zombies created by FORK()
177FORK: # straight out of the book
192 } elsif ($! =~ /No more process/) {
193 # EAGAIN, supposedly recoverable fork error
194 sleep 2;
196 } else {
197 # weird fork error
198 die "Can't fork: $!\n";
Fork.pm git://pkgs.fedoraproject.org/nordugrid-arc | Perl | 351 lines
9 'users_info');
10use LogUtils ( 'start_logging', 'error', 'warning', 'debug' );
11use strict;
109 if ($@) {
110 error("Failed running module Sun::Solaris::Kstat: $@");
111 }
149 } elsif ($etime eq '-') {
150 $etime = 0; # a zombie ?
151 } else {
190 } else {
191 error("Failed getting load averages");
192 $lrms_cluster{usedcpus} = 0;
221 unless (open PSCOMMAND, "ps axr |") {
222 error("error in executing ps axr");
223 }
Cmd.pm https://bitbucket.org/preining/tex-live.git | Perl | 168 lines
35 } or do {
36 my $err = $@ || 'Zombie error';
37 die "Failed to merge typ";
lab1b-tester.pl https://github.com/mvismonte/cs111_lab1.git | Perl | 345 lines
282
283# Zombie
284# Method 1
284# Method 1
285 [ 'Test 63 (Zombie Processes)',
286 'cat temp1.out | ./ospsh -q & sleep 2 ; ps | grep echo | grep -v grep | grep "<defunct>$"',
335 next if $result eq $want;
336 next if $want eq 'Syntax error [NULL]' && $result eq '[NULL]';
337 next if $result eq $want;
OpenVZ.pm https://github.com/ceph/collectd.git | Perl | 190 lines
30my @cpu_instances = ('user', 'nice', 'system', 'idle', 'wait', 'interrupt', 'softirq', 'steal');
31my @if_instances = ('if_octets', 'if_packets', 'if_errors');
32my $vzctl = '/usr/sbin/vzctl';
149
150 my $ps_states = { 'paging' => 0, 'blocked' => 0, 'zombies' => 0, 'stopped' => 0,
151 'running' => 0, 'sleeping' => 0 };
152 my $state_map = { 'R' => 'running', 'S' => 'sleeping', 'D' => 'blocked',
153 'Z' => 'zombies', 'T' => 'stopped', 'W' => 'paging' };
154
Serializer.pm git://github.com/PerlDancer/Dancer2.git | Perl | 138 lines
50 } or do {
51 my $error = $@ || 'Zombie Error';
52 blessed $self
52 blessed $self
53 and $self->log_cb->( core => "Failed to serialize content: $error" );
54 };
69 } or do {
70 my $error = $@ || 'Zombie Error';
71 $self->log_cb->( core => "Failed to deserialize content: $error" );
Core.pm git://pkgs.fedoraproject.org/perl-MooseX-Daemonize | Perl | 410 lines
1package MooseX::Daemonize::Core;
2use strict; # cause Perl::Critic errors are annoying
3use MooseX::Getopt; # to load the NoGetopt metaclass
20
21has ignore_zombies => (
22 metaclass => 'Getopt',
44 # backwards compability.. old code might be calling daemon_fork/_detach with options
45 foreach my $opt (qw( ignore_zombies no_double_fork dont_close_all_files )) {
46 $self->$opt( $options{ $opt } ) if ( defined $options{ $opt } );
56 $SIG{CHLD} = 'IGNORE'
57 if $self->ignore_zombies;;
58
196If you the double-fork behavior off, you might want to enable the
197I<ignore_zombies>.
198
dnsserver.pm http://isr-evilgrade.googlecode.com/svn/trunk/ | Perl | 191 lines
54 'whoami' => "DNSSERVER",
55 'error' => "",
56 'enable' => 0,
82
83 #ignore child process avoid zombies.
84 $SIG{CHLD} = 'IGNORE';
100 {
101 $self->{'Base'}->{'error'} = "[$self->{'Base'}->{'whoami'}] - Cant't create a listening socket: $@";
102 return;
115 if( $nserver->answer_queries() == 0 ){
116 $self->{'Base'}->{'error'} = "[$self->{'Base'}->{'whoami'}] - Error Initiating DNS Server";
117 return 0;
AppLauncher.pm https://gitlab.com/aukkwat/CZPodzone-OpenKore-Bot | Perl | 331 lines
27# die "Cannot launch application.\n" .
28# "Error message: " . $launcher->getError() . "\n" .
29# "Error code: " . $launcher->getErrorCode() . "\n";
128# You should periodically call this function. On Unix, not calling
129# this function can lead to zombie processes.
130sub check {
230 if (pipe($r, $w) == -1) {
231 $self->{error} = $!;
232 $self->{errno} = int($!);
250 # Child process
251 my ($error, $errno);
252
308 $self->{launched} = 0;
309 $self->{error} = $error;
310 $self->{errno} = $errno;
edit_summary.pl https://github.com/fws-hub/xPapers.git | Perl | 127 lines
4my $cat = xPapers::Cat->get($ARGS{cId});
5error("Category not found") unless $cat;
6error("Not allowed") unless $cat->isEditor($user) or $SECURE;
89<p>
90Please see <a href="http://philpapers.org/browse/zombies-and-the-conceivability-argument">this page</a> as an example.
91You should aim to use roughly the space of the provided boxes.
Config.pm git://pkgs.fedoraproject.org/spamassassin-FuzzyOcr | Perl | 1033 lines
21use lib qw(..);
22use FuzzyOcr::Logging qw(debuglog infolog warnlog errorlog);
23use FuzzyOcr::Scanset;
114 my $ret = kill POSIX::SIGTERM, $pid;
115 # Wait for zombie process if the process is a zombie (i.e. SIGTERM didn't work)
116 wait();
563 if ($retcode) {
564 errorlog("Error parsing preprocessor file \"$pfile\", aborting...");
565 return 0;
Open3.pm https://gitlab.com/f3822/qtwebengine-chromium | Perl | 371 lines
17
18IPC::Open3, open3 - open a process for reading, writing, and error handling
19
32connects CHLD_OUT for reading from the child, CHLD_IN for writing to
33the child, and CHLD_ERR for errors. If CHLD_ERR is false, or the
34same file descriptor as CHLD_OUT, then STDOUT and STDERR of the child
69simple as calling C<waitpid $pid, 0> when you're done with the process.
70Failing to do this can result in an accumulation of defunct or "zombie"
71processes. See L<perlfunc/waitpid> for more information.
99
100This is a CPAN module that has better error handling and more facilities
101than Open3.
123# spawn the given $cmd and connect rdr for
124# reading, wtr for writing, and err for errors.
125# if err is '', or the same as rdr, then stdout and
Voice_Text.pm https://misterhouse.svn.sourceforge.net/svnroot/misterhouse | Perl | 271 lines
34 unless ($VTxt) {
35 print "\n\nError, could not create Speech TTS object. ", Win32::OLE->LastError(), "\n\n";
36 return;
96 my $pid = fork;
97 $SIG{CHLD} = "IGNORE"; # eliminate zombies created by FORK()
98 if ($pid) {
193
194 open (WORDS, $pronouncable_list_file) or print "\nError, could not find the pronouncable word file $pronouncable_list_file: $!\n";
195
252# Revision 1.9 1999/02/04 14:21:28 winter
253# - switch to new OLE calls. Add better error checking
254#
261# Revision 1.6 1999/01/09 21:43:14 winter
262# - improve ole fail error
263#
Tag.pm https://github.com/dmb387/cxgn-corelibs.git | Perl | 74 lines
3
4CXGN::Error::Tag
5
7
8John Binns <zombieite@gmail.com>
9
11
12Allows you to send tagged error messages to STDERR. We may someday want to
13grep through error logs to find these tagged messages.
24
25 use CXGN::Error::Tag ('dbg','wrn');
26 dbg;#prints just empty dbg tags, as long as you are not a production server.
36
37 use CXGN::Error::Tag ('dbg','wrn');
38 wrn;#prints just empty wrn tags
Open3.pm https://IronPython.svn.codeplex.com/svn | Perl | 334 lines
17
18IPC::Open3, open3 - open a process for reading, writing, and error handling
19
31Extremely similar to open2(), open3() spawns the given $cmd and
32connects RDRFH for reading, WTRFH for writing, and ERRFH for errors. If
33ERRFH is false, or the same file descriptor as RDRFH, then STDOUT and
58simple as calling C<waitpid $pid, 0> when you're done with the process.
59Failing to do this can result in an accumulation of defunct or "zombie"
60processes. See L<perlfunc/waitpid> for more information.
96# spawn the given $cmd and connect rdr for
97# reading, wtr for writing, and err for errors.
98# if err is '', or the same as rdr, then stdout and
LineByLine.pm https://github.com/fws-hub/xPapers.git | Perl | 225 lines
28 #print "[LineParser($me->{class}): opening $file]\n";
29 $me->{errors} = [];
30
58 if ($bib->{entryIndex}->{TIMWAT}) {
59 print "found future zombie\n";
60 print $bib->{entryIndex}->{TIMWAT}->toString;
106 for (; $level_diff >=0; $level_diff--) {
107 $target = $target->firstParent || die("** ERROR (line #: $linenum): can't get appropriate parent for category '$ca->{name}|$l'\n");
108 }
163 my $err = "Line $linenum not parsed: '$l'\n" unless ($l =~ /^\s*$/);
164 push @{$me->{errors}},$err;
165}
LoadCPAN.pm https://gitlab.com/storedmirrors/git | Perl | 104 lines
32# perl/Git as opposed to perl/build/Git, which is useful for one-off
33# testing without having Error.pm et al installed.
34use constant NO_PERL_CPAN_FALLBACKS_STR => '@@' . 'NO_PERL_CPAN_FALLBACKS' . '@@';
57 } or do {
58 my $error = $@ || "Zombie Error";
59
60 if (NO_PERL_CPAN_FALLBACKS) {
61 chomp(my $error = sprintf <<'THEY_PROMISED', $module);
62BUG: The '%s' module is not here, but NO_PERL_CPAN_FALLBACKS was set!
67
68You're seeing this error because they broke that promise, and we can't
69load our fallback version, since we were asked not to install it.
70
71If you're seeing this error and didn't package Git yourself the
72package you're using is broken, or your system is broken. This error
Signals.pm https://github.com/EvanCarroll/MooseyPoopoe.git | Perl | 667 lines
4
5use POE::Helpers::Error qw( _warn _trap );
6use POE::Helpers::Constants qw(
92 DIE => SIGTYPE_TERMINAL,
93 ZOMBIE => SIGTYPE_NONMASKABLE,
94 UIDESTROY => SIGTYPE_NONMASKABLE,
Voice_Text.pm https://misterhouse.svn.sourceforge.net/svnroot/misterhouse | Perl | 309 lines
39 unless ($VTxt) {
40 print "\n\nError, could not create Speech TTS object. ", Win32::OLE->LastError(), "\n\n";
41 return;
101 my $pid = fork;
102 $SIG{CHLD} = "IGNORE"; # eliminate zombies created by FORK()
103 if ($pid) {
123 if ($ViaVoiceTTS) {
124 $SIG{CHLD} = "IGNORE"; # eliminate zombies created by FORK()
125FORK: # straight out of the book
139 } elsif ($! =~ /No more process/) {
140 # EAGAIN, supposedly recoverable fork error
141 sleep 2;
143 } else {
144 # weird fork error
145 die "Can't fork: $!\n";
Legacy.pm git://github.com/book/HTTP-Proxy.git | Perl | 180 lines
40 if ( @$kids >= $self->max_clients ) {
41 $proxy->log( HTTP::Proxy::ERROR, "PROCESS",
42 "Too many child process, serving the connection" );
52 $conn->close;
53 $proxy->log( HTTP::Proxy::ERROR, "PROCESS", "Cannot fork" );
54 $self->max_clients( $self->max_clients - 1 )
73
74 $self->reap_zombies if @$kids;
75}
83 kill INT => @$kids;
84 $self->reap_zombies while @$kids;
85}
87# private reaper sub
88sub reap_zombies {
89 my $self = shift;
pipe.t git://github.com/ggoossen/kurila.git | Perl | 229 lines
36
37 close $pipe # avoid zombies
38 else
60 print: $^STDOUT, $_
61 close $pipe # avoid zombies
62 else
71 printf: $pipe, "not ok \%d - $raw", (curr_test: )
72 close $pipe # avoid zombies
73 else
100
101 close $reader # avoid zombies
102 else
153 local (signals::handler: "PIPE") = 'IGNORE'
154 open: my $nil, '|-', qq{$Perl -e "exit 0"} or die: "open failed: $^OS_ERROR"
155 sleep 5
ws-main.pl http://my-perl-webservice.googlecode.com/svn/trunk/ | Perl | 164 lines
38
39$SIG{CHLD} = 'IGNORE'; # Don't reap zombies
40
154 0 - Suppress all logging.
155 1 - Errors only,
156 2 - Messages and errors only,
156 2 - Messages and errors only,
157 3 - Debugging messages, messages and errors,
158 4(and above) - Add log dump to stdout.
LowLevel.pm https://github.com/bradcavanagh/perl-modules-for-astronomy.git | Perl | 371 lines
121it should be noted that if you DON'T do this after finishing with
122the object you're going to have zombie Java VM hanging around eating
123up all your CPU. This is amougst the many reasons why you should
160 } else {
161 croak( "Error: Environment variable \$ALADIN_JAR not defined".
162 " see package README file");
Open3.pm git://github.com/ggoossen/kurila.git | Perl | 379 lines
71simple as calling C<waitpid $pid, 0> when you're done with the process.
72Failing to do this can result in an accumulation of defunct or "zombie"
73processes. See L<perlfunc/waitpid> for more information.
101
102This is a CPAN module that has better error handling and more facilities
103than Open3.
125# spawn the given $cmd and connect rdr for
126# reading, wtr for writing, and err for errors.
127# if err is '', or the same as rdr, then stdout and
157sub xpipe
158 pipe: @_[0], @_[1] or die: "$Me: pipe(" . (Symbol::glob_name: @_[0]) . ", " . (Symbol::glob_name: @_[1]) . ") failed: $^OS_ERROR"
159
319 }
320 die: "$Me: $^EVAL_ERROR" if $^EVAL_ERROR
321
fcrdns git://github.com/smtpd/qpsmtpd.git | Perl | 313 lines
15
16The reverse DNS of zombie PCs is out of the spam operators control. Their
17only way to pass this test is to limit themselves to hosts with matching
112error that is likely transient in nature, such as a temporary DNS
113error, e.g., a DNS RCODE of 2, commonly known as SERVFAIL, or
114other error condition resulted. A later attempt may produce a
217 if ( $res->errorstring eq 'SERVFAIL' ) {
218 $self->log(LOGINFO, "fail, error getting rDNS: " . $res->errorstring);
219 $self->store_auth_results("iprev=temperror");
220 }
221 elsif ( $res->errorstring eq 'NOERROR' ) {
222 $self->log(LOGINFO, "fail, no PTR (NOERROR)" );
226 $self->store_auth_results("iprev=fail");
227 $self->log(LOGINFO, "fail, error getting rDNS: " . $res->errorstring);
228 };
Simple.pm https://github.com/ytnobody/Zacro.git | Perl | 496 lines
68
69 # Reap Zombies automatically
70 $SIG{'CHLD'} = \&THE_REAPER;
73 $self->{'pid'} = fork();
74 return 0 unless defined $self->{'pid'}; # return Error if fork failed
75
391 if(my $res = waitpid($pid, $WNOHANG) > 0) {
392 # We reaped a zombie
393 delete $DESTROYED{$pid};
476 # Close stderr, since some weirdo POSIX modules write nasty
477 # error messages
478 close(STDERR);
Makefile.PL git://pkgs.fedoraproject.org/perl-Unix-Statgrab | Perl | 76 lines
42 # changes.
43 my @names = (qw(SG_ERROR_ASPRINTF SG_ERROR_DEVSTAT_GETDEVS
44 SG_ERROR_DEVSTAT_SELECTDEVS SG_ERROR_ENOENT
44 SG_ERROR_DEVSTAT_SELECTDEVS SG_ERROR_ENOENT
45 SG_ERROR_GETIFADDRS SG_ERROR_GETMNTINFO SG_ERROR_GETPAGESIZE
46 SG_ERROR_KSTAT_DATA_LOOKUP SG_ERROR_KSTAT_LOOKUP
46 SG_ERROR_KSTAT_DATA_LOOKUP SG_ERROR_KSTAT_LOOKUP
47 SG_ERROR_KSTAT_OPEN SG_ERROR_KSTAT_READ
48 SG_ERROR_KVM_GETSWAPINFO SG_ERROR_KVM_OPENFILES
48 SG_ERROR_KVM_GETSWAPINFO SG_ERROR_KVM_OPENFILES
49 SG_ERROR_MALLOC SG_ERROR_NONE SG_ERROR_OPEN SG_ERROR_OPENDIR
50 SG_ERROR_PARSE SG_ERROR_SETEGID SG_ERROR_SETEUID
51 SG_ERROR_SETMNTENT SG_ERROR_SOCKET SG_ERROR_SWAPCTL
52 SG_ERROR_SYSCONF SG_ERROR_SYSCTL SG_ERROR_SYSCTLBYNAME
53 SG_ERROR_SYSCTLNAMETOMIB SG_ERROR_UNAME SG_ERROR_UNSUPPORTED
run_me.pl http://exploitfarm.googlecode.com/svn/trunk/ | Perl | 178 lines
45 # first death, we won't get another signal. So must loop here else
46 # we will leave the unreaped child as a zombie. And the next time
47 # two children die we get another zombie. And so on.
144 doit_one($team);
145 }else #error
146 {
146 {
147 print "Internal Error: Can`t fork!\n";
148 return 1;
MakeDistList.pm git://github.com/tsee/cpan_perl_branch_smoke.git | Perl | 285 lines
81FlatFile-DataStore # hangs after t/FlatFile-DataStore-Toc.t
82Device-RFXCOM # spits out EV: error in callback (ignoring): closed at t/01-rx.t line 116
83MojoX-Run # hangs with 5.14.0-382
91parrot
92PPerl # Zombie galore?
93REGEXP: \bIPC-Shareable-0\.60\.tar\.gz$ # hangs
114REGEXP: \bText-GenderFromName-0\.32\.tar\.gz$ # bad prompt
115REGEXP: \bMARC-Errorchecks-1\.13\.tar\.gz$ # complicated interactivity in make test
116XUL-Node # asks for port -- 8077?
RSS.pm https://infobot.svn.sourceforge.net/svnroot/infobot | Perl | 239 lines
169 } else {
170 print "error: $@\n";
171 }
207
208 $kernel->post (fetchrss => 'ZOMBIE');
209 $self->SUPER::_state_end (@_);
sloop_server.pm https://github.com/chkoreff/Loom.git | Perl | 262 lines
72 # CHLD signal: At least one child process exited. Wait for all
73 # children to exit to avoid zombies.
74
108 {
109 print STDERR "error in accept : $!\n" if !signal::get_child();
110 next;
126 # Too many processes.
127 print STDERR "fork error: $!\n";
128 close($client_socket);
159# that the listening socket is fully released, allowing us to restart the
160# server immediately without getting a "bind: Address already in use" error.
161# Return false if the process fails to exit after waiting 2 minutes.
177 my $fh;
178 open($fh, "ps -p $curr_pid|") or die "error: $!";
179 while (<$fh>)
Map.pm https://github.com/solgenomics/cxgn-corelibs.git | Perl | 764 lines
24
25John Binns <zombieite@gmail.com>, Lukas Mueller (lam87@cornell.edu) and Isaak Y Tecle (iyt2@cornell.edu)
26
85 } else {
86 print STDERR "ERROR no map_version_id\n";
87 }
198 } else {
199 print STDERR "Error: No Map Id for $name\n";
200 }
208 $sth = $dbh->prepare("INSERT INTO sgn.map (short_name, map_type) VALUES (?, 'genetic') RETURNING map_id");
209 $sth->execute($name) or die "ERROR can not create map\n";;
210 ($map_id) = $sth->fetchrow_array() or die "ERROR inserting map\n";
gmusicbrowser_mplayer.pm git://pkgs.fedoraproject.org/gmusicbrowser | Perl | 210 lines
14
15#$SIG{CHLD} = 'IGNORE'; # to make sure there are no zombies #cause crash after displaying a file dialog and then runnning an external command with mandriva's gtk2
16#$SIG{CHLD} = sub { while (waitpid(-1, WNOHANG)>0) {} };
76 $ChildPID=fork;
77 if (!defined $ChildPID) { warn "gmusicbrowser_mplayer : fork failed : $!\n"; ::ErrorPlay("Fork failed : $!"); return }
78 elsif ($ChildPID==0) #child
162
163sub error
164{ ::ErrorPlay(join(' ',@cmd_and_args)." :\n".$_[0]);
Location.pm https://repo.or.cz/cxgn-corelibs.git | Perl | 472 lines
8
9John Binns <zombieite@gmail.com>
10
289 my %found_location_ids
290 ; #a place to keep all location IDs that match for this marker, for use in error checking in a moment
291 my ($location_id) = $q->fetchrow_array();
374 my %found_location_ids
375 ; #a place to keep all location IDs that match for this marker, for use in error checking in a moment
376 my ($location_id) = $q->fetchrow_array();
rsync-backup.pl https://github.com/evilchili/automagickus.git | Perl | 1429 lines
52 my $ident = shift;
53 openlog("rsync-backup.pl", "ndelay,perror", "error");
54 syslog( $ident, join( " ", @_) );
76
77# log errors to a filehandle, if any, and syslog, and STDERR.
78sub fail {
86
87 # now log the error to syslog and exit.
88 &log("LOG_ERR", @_ );
89
90 warn "ERROR: " . join "\n",@_;
91 exit 1;
93
94# set up a zombie reaper to clean up after children and
95# clear up a slot for a new child to be spawned.
proc_zstate-00001.pl http://server-diagnostic-patterns.googlecode.com/svn/trunk/ | Perl | 139 lines
5#META-REVISION = 1.0.8
6#META-TITLE = Basic Health Check - Zombie Processes
7#META-DESCRIPTION = Checks for excessive zombie processes
61use constant LIMIT_OPT_PROCZYEL => 5; # Number of Z state proceses; yellow
62use constant OPEN_FILE_ERROR => "ERROR: Couldn't open file: ";
63use constant SECTION_PROCS => "egrep";
87sub check_proc_zstate() {
88 print("Zombie Processes\n") if $OPT_LOGLEVEL >= LOGLEVEL_DEBUG;
89 print("Using: $SRC_FILE1\n") if $OPT_LOGLEVEL >= LOGLEVEL_DEBUG;
109 if ( $Z_COUNT >= LIMIT_OPT_PROCZRED ) {
110 SDP::Core::update_status(STATUS_CRITICAL, PROPERTY_NAME_PROCZ, "$Z_COUNT meets or exceeds ".LIMIT_OPT_PROCZRED." zombie processes");
111 }
112 elsif ( $Z_COUNT >= LIMIT_OPT_PROCZYEL ) {
113 SDP::Core::update_status(STATUS_WARNING, PROPERTY_NAME_PROCZ, "$Z_COUNT meets or exceeds ".LIMIT_OPT_PROCZYEL." zombie processes");
114 }
topparse.pl http://chirico.googlecode.com/svn/trunk/ | Perl | 161 lines
24 my $running=-1;
25 my $zombie=-1;
26 my $stopped=-1;
37 $loadavg2=$3;
38 }elsif ($line =~ /(^\d\d*)\s\s*processes:\s\s*(\d\d*)\s\s*sleeping,\s\s*(\d\d*)\s\s*running,\s\s*(\d\d*)\s\s*zombie,\s\s*(\d\d*)\s\s*stopped/) {
39 $processes=$1;
41 $running=$3;
42 $zombie=$4;
43 $stopped=$5;
122
123# print "********************** ERRor: $line \n";
124}
132$dbh1->do( "INSERT INTO top_heading_data
133 (server,loadavg0,loadavg1,loadavg2,processes,sleeping,running,zombie,stopped)
134 VALUES
mtr_process.pl https://github.com/olliolli/me.store.git | Perl | 912 lines
40 my $output= shift;
41 my $error= shift;
42 my $pid_file= shift;
97 print STDERR "#### ", "STDOUT $output\n" if $output;
98 print STDERR "#### ", "STDERR $error\n" if $error;
99 print STDERR "#### ", "$mode : $path ", join(" ",@$arg_list_t), "\n";
172
173 if ( $error )
174 {
185 {
186 mtr_child_error("can't redirect STDERR to \"$error\": $!");
187 }
434 {
435 mtr_error("can't remove $pidfile");
436 }
FileSysTest.pl https://github.com/thecwlzone/one-offs.git | Perl | 329 lines
166
167 # Avoid zombie processes
168 foreach (@childs) {
289 if ($item < 1 || $item > $main::total_tests) {
290 warn "Error in --tests option. The maximum number of tests is $main::total_tests\n";
291 warn " You entered $item. Cannot continue.\n";
Version.pm https://github.com/solgenomics/cxgn-corelibs.git | Perl | 258 lines
7
8John Binns <zombieite@gmail.com>
9
229 } else {
230 die("Error could not insert new map_version $map_id\n");
231 }
Fork.pm https://github.com/ap/Proc-Fork.git | Perl | 282 lines
32 die "Cannot fork: $!\n" if not $error;
33 $error->();
34 return;
94
95This module provides an intuitive, Perl-ish way to write forking programs by letting you use blocks to illustrate which code section executes in which fork. The code for the parent, child, retry handler and error handler are grouped together in a "fork block". The clauses may appear in any order, but they must be consecutive (without any other statements in between).
96
134
135Declares the block that should run in case of an error, ie. if C<fork> returned C<undef>. If the code returns true, another C<fork> is attempted. The number of fork attempts so far is passed as an argument to the block.
136
138
139If a C<retry> clause is not used, no retries will be attempted and a fork failure will immediately lead to the C<error> clause being called.
140
146
147If an C<error> clause is not used, errors will raise an exception using C<die>.
148
Open3.pm https://github.com/toddr/perl.git | Perl | 444 lines
17
18IPC::Open3 - open a process for reading, writing, and error handling using open3()
19
38
39 # reap zombie and retrieve exit status
40 waitpid( $pid, 0 );
46connects $chld_out for reading from the child, $chld_in for writing to
47the child, and $chld_err for errors. If $chld_err is false, or the
48same file descriptor as $chld_out, then STDOUT and STDERR of the child
86simple as calling C<waitpid $pid, 0> when you're done with the process.
87Failing to do this can result in an accumulation of defunct or "zombie"
88processes. See L<perlfunc/waitpid> for more information.
116
117This is a CPAN module that has better error handling and more facilities
118than Open3.
dklab_realplexor.pl https://github.com/DmitryKoterov/dklab_realplexor.git | Perl | 173 lines
11 if (!eval('use EV; 1')) {
12 print STDERR "Error: EV library is not found in your system:\n";
13 print STDERR "http://search.cpan.org/~mlehmann/EV-3.9/EV.pm\n";
115
116# Turn on zombie auto-reaper.
117$SIG{CHLD} = 'IGNORE';
pipe.t https://bitbucket.org/osunix/osunix-gate | Perl | 199 lines
39 }
40 close PIPE; # avoid zombies
41 }
64 }
65 close READER; # avoid zombies
66 }
123 if (print NIL 'foo') {
124 # If print was allowed we had better get an error on close
125 ok( !close NIL, 'close error on broken pipe' );
146 # check that status for the correct process is collected
147 my $zombie;
148 unless( $zombie = fork ) {
160 is( $?, 37*256, 'status correct after wait' );
161 is( $wait, $zombie, ' wait pid' );
162 is( $!, '', ' errno');
Open3.pm https://bitbucket.org/thelearninglabs/uclinux-distro-tll-public.git | Perl | 349 lines
17
18IPC::Open3, open3 - open a process for reading, writing, and error handling
19
32connects CHLD_OUT for reading from the child, CHLD_IN for writing to
33the child, and CHLD_ERR for errors. If CHLD_ERR is false, or the
34same file descriptor as CHLD_OUT, then STDOUT and STDERR of the child
65simple as calling C<waitpid $pid, 0> when you're done with the process.
66Failing to do this can result in an accumulation of defunct or "zombie"
67processes. See L<perlfunc/waitpid> for more information.
104# spawn the given $cmd and connect rdr for
105# reading, wtr for writing, and err for errors.
106# if err is '', or the same as rdr, then stdout and
RunnerLSF.pm https://github.com/sanger-pathogens/vr-codebase.git | Perl | 601 lines
15 $$self{Running} = 1;
16 $$self{Error} = 2;
17 $$self{Zombi} = 4;
26 WAIT => $$self{Running} | $$self{Waiting},
27 EXIT => $$self{Error},
28 ZOMBI => $$self{Zombi},
38 $self->_set_lsf_limits_unit();
39 $self->_init_zombies();
40
56 my ($self, $task) = @_;
57 return $$task{status} & $$self{Error};
58}
178 my $lsf_id = $$info{$id}{lsf_id};
179 if ( $$self{ignore_zombies}{$lsf_id} ) { $jobs_out[$j]{status} = $$self{Error}; }
180 else { $jobs_out[$j]{status} = $$self{Running}; }
Open3.pm https://github.com/ambs/POSIX-Open3.git | Perl | 487 lines
21
22POSIX::Open3 - open a process for reading, writing, and error handling using open3()
23
54one available with IPC::Open3. We just force the standard output and
55standard error re-opening to the default file handles in the child
56process.
61connects CHLD_OUT for reading from the child, CHLD_IN for writing to
62the child, and CHLD_ERR for errors. If CHLD_ERR is false, or the
63same file descriptor as CHLD_OUT, then STDOUT and STDERR of the child
99simple as calling C<waitpid $pid, 0> when you're done with the process.
100Failing to do this can result in an accumulation of defunct or "zombie"
101processes. See L<perlfunc/waitpid> for more information.
129
130This is a CPAN module that has better error handling and more facilities
131than Open3.
Request.pm https://github.com/solgenomics/sgn.git | Perl | 136 lines
7
8This module is used mainly by CXGN::Apache::Error to provide detailed information about who caused a page error and how they caused it.
9
25
26Returns a string indicating the time in Ithaca NY. Used to associate a time with an error report.
27
29
30john binns - John Binns <zombieite@gmail.com>
31
Location.pm https://github.com/sheenams/cxgn-corelibs.git | Perl | 452 lines
7
8John Binns <zombieite@gmail.com>
9
295 $q->execute($self->{marker_id},$self->{lg_id},$self->{map_version_id},$self->{position},$self->{confidence_id},$self->{subscript});
296 my %found_location_ids;#a place to keep all location IDs that match for this marker, for use in error checking in a moment
297 my($location_id)=$q->fetchrow_array();
368 $q->execute($self->{marker_id},$self->{lg_id},$self->{map_version_id},$self->{position},$self->{subscript});
369 my %found_location_ids;#a place to keep all location IDs that match for this marker, for use in error checking in a moment
370 my($location_id)=$q->fetchrow_array();
Login.pm https://github.com/solgenomics/SMMID.git | Perl | 669 lines
33
34John Binns <zombieite@gmail.com>
35
391 if ( ! $username) {
392 $login_info->{error} = "Please provide a username.";
393 }
395 elsif (! $password) {
396 $login_info->{error} = "Please provide a password.";
397 }
404 if (! $row) {
405 $login_info->{error} = "Incorrect password or user information.";
406 return $login_info;
Zombie.pm git://github.com/maverick/ApacheVoodoo.git | Perl | 76 lines
4
5Apache::Voodoo::Zombie - Internal module used by Voodoo when a end user module doesn't compile.
6
10when either devel_mode or debug is 1 in the application's voodoo.conf. Any calls to this module simply
11throw an exception describing the compilation error.
12
31 'module' => $module,
32 'error' => $error
33 };
53 if (ref($Apache::Voodoo::Engine::debug)) {
54 $Apache::Voodoo::Engine::debug->error($self->{'module'},$self->{'error'});
55 }
58 'module' => $self->{'module'},
59 'error' => $self->{'error'}
60 );
Blocked.pm https://github.com/OTRS/otrs.git | Perl | 227 lines
56 |dnsbl:attrbl
57 |dynamic/zombied/spam[ ]ips[ ]blocked
58 |email[ ]blocked[ ]by[ ](?:.+[.]barracudacentral[.]org|spamhaus)
112 |service[ ]permits[ ]\d+[ ]unverifyable[ ]sending[ ]ips
113 |smtp[ ]error[ ]from[ ]remote[ ]mail[ ]server[ ]after[ ]initial[ ]connection: # Exim
114 |sorry,[ ](?:
187
188This is the error that SMTP connection was rejected due to a client IP address
189or a hostname, or the parameter of "HELO/EHLO" command. This reason has added
Process.pm https://bitbucket.org/bdartigu/stagereport | Perl | 184 lines
2# Paul Pavlidis 2000
3# Functions for managing processes. Specifically, for handling background processes, errors in same, and cancelations by users.
4
140 };
141 die "Error reading semaphore file: $@\n" if $@;
142 } else {
155 if ($forkOK) { # what to do when certain signals are received.
156 $SIG{CHLD} = 'IGNORE'; # Autoreap zombies. child process sends this signal to the parent when it quits. See pg 415 of camel 3rd ed.
157 $SIG{QUIT} = sub { die "\nAction canceled by user.\n" };
176 };
177 die "Error reading semaphore file: $@\n" if $@;
178 chmod (0666, $semaphoreFile);
ReadLine.pm https://github.com/hailo/hailo.git | Perl | 188 lines
54 } or do {
55 chomp(my $err = $@ || "Zombie Error");
56 say STDERR "Failed on <<${^MATCH}>>: <<$err>>";
pipe.t https://github.com/schacon/perl.git | Perl | 244 lines
39 }
40 close PIPE; # avoid zombies
41 }
64 print;
65 close PIPE; # avoid zombies
66 }
76 printf PIPE "not ok %d - $raw", curr_test();
77 close PIPE; # avoid zombies
78 }
107 }
108 close READER; # avoid zombies
109 }
166 if (print NIL 'foo') {
167 # If print was allowed we had better get an error on close
168 ok( !close NIL, 'close error on broken pipe' );
Application.pm git://github.com/maverick/ApacheVoodoo.git | Perl | 315 lines
127 warn "$@\n";
128 $self->{'errors'}++;
129 }
138 warn "$@\n";
139 $self->{'errors'}++;
140 }
149 warn "$@\n";
150 $self->{'errors'}++;
151 }
159 warn "$@\n";
160 $self->{'errors'}++;
161 }
167 warn "$@\n";
168 $self->{'errors'}++;
169 }
xsubpp https://github.com/rurban/perl.git | Perl | 185 lines
8or do {
9 my $err = $@ || 'Zombie error';
10 my $v = $ExtUtils::ParseXS::VERSION;
51$pxs->process_file(%args);
52exit( $pxs->report_error_count() ? 1 : 0 );
53
Contact.pm https://github.com/solgenomics/sgn.git | Perl | 171 lines
35 Ret : nothing meaningful
36 Side Effects: dies on error
37 Example:
58 #if we are specifying a mailto as a vhost configuration variable (such as 'bugs_email'), then use that variable's value, and append the request info.
59 #mailto can also be specified normally (such as 'John Binns <zombieite@gmail.com>').
60 if ( $mailto and eval{ $vhost_conf->get_conf($mailto)} ) {
94
95 my ($mail,$error) = Email::Send::SMTP::Gmail->new(
96 -smtp => $smtp_server,
104 if ($mail == -1) {
105 print STDERR "CXGN::Contact: SMTP error: $error\n";
106 };
124 if ($mail == -1) {
125 print STDERR "CXGN::Contact: SMTP error: $error\n";
126 };
easypxe https://github.com/aastaneh/easypxe.git | Perl | 285 lines
69
70 # Double-fork to avoid leaving a zombie process behind:
71 exit if fork;
81 Proto => 'udp')
82 or die "DHCP server socket creation error: $@\n";
83
90 Broadcast => 1 )
91 or die "DHCP client socket creation error: $@\n";
92
142 if ($@) {
143 logger("Daemon Error: $@\n");
144 }
277 } else {
278 logger( "TFTP_SERVER_ERROR: File \"$file_name\": " . $request->error );
279 }
dklab_realplexor.pl https://github.com/isage/dklab_realplexor.git | Perl | 173 lines
14 if (!eval('use EV; 1')) {
15 print STDERR "Error: EV library is not found in your system:\n";
16 print STDERR "http://search.cpan.org/~mlehmann/EV-3.9/EV.pm\n";
115
116# Turn on zombie auto-reaper.
117$SIG{CHLD} = 'IGNORE';
throttle.pl https://repo.or.cz/Orgmuse.git | Perl | 80 lines
53 # pidfile if pid does not exist and return 0. Count the number of
54 # zeros (= removed files = zombies) with grep.
55 my $zombies = grep /^0$/,
56 (map {/(\d+)$/ and kill 0,$1 or unlink and 0} @pids);
57 if (scalar(@pids)-$zombies >= $InstanceThrottleLimit) {
58 ReportError(Ts('Too many instances. Only %s allowed.',
Top.pm https://github.com/oetiker/remOcular.git | Perl | 229 lines
60 my $params = shift;
61 my $error;
62 if (int($params->{interval}||0) < 1){
103 label => 'S',
104 tooltip => 'State (D = uninterruptible sleep, R = running, S = sleeping, T = traced or stopped, Z = zombie',
105 width => 1,
157 ($params->{threads} ? '-H' : ())) or do {
158 $self->append_data($outfile,"#ERROR\t$!\n");
159 return;
linz_bde_uploader.pl https://github.com/linz/linz_bde_uploader.git | Perl | 510 lines
41 FATAL => $FATAL,
42 ERROR => $ERROR,
43 WARN => $WARN,
52my $do_purge_old = 0; # Clean up old jobs if set
53my $do_remove_zombie = 0; # Clean up zombied jobs if set
54my $apply_level0 = 0; # Do level 0 updates if set
82 "purge|p!" => \$do_purge_old,
83 "remove-zombie|z!" => \$do_remove_zombie,
84 "skip-postupload-tasks!" => \$skip_postupload,
129
130if( ! $apply_level0 && ! $apply_level5 && ! $do_purge_old && ! $do_remove_zombie && ! $rebuild)
131{
244 {
245 $upload->RemoveZombiedJobs if $do_remove_zombie;
246 $upload->PurgeOldJobs if $do_purge_old;
Queue.pm https://bitbucket.org/bdartigu/stagereport | Perl | 122 lines
61 if ($MAXJOBS < $SIMULTANEOUSJOBS) {
62 return("ABORT|CONFIGERROR");
63 $log->log("Notify the administrator that the MAXJOBS settings is too low given the SIMULTANEOUSJOBS setting");
91############################################################################
92# Clean up some 'zombies' (internal function)
93############################################################################
poe-d.pl https://github.com/Sec42/beopardy.git | Perl | 335 lines
38 ClientConnected => \&ws_connected,
39 ClientError => \&ws_error,
40 ClientDisconnected => \&ws_disconnected,
49 ClientConnected => \&client_connected,
50 ClientError => \&client_error,
51 ClientDisconnected => \&client_disconnected,
148 my $session_id = $_[SESSION]->ID;
149 return if(!$users{$session_id}); # I'm a zombie
150 my $frame=$wsstate{$session_id}{frame};
158 my $session_id = $_[SESSION]->ID;
159 return if(!$users{$session_id}); # I'm a zombie
160 my $frame=$wsstate{$session_id}{frame};
178
179sub ws_error {
180 my $session_id = $_[SESSION]->ID;
SSH.pm git://pkgs.fedoraproject.org/perl-Net-SSH | Perl | 344 lines
42
43 sshopen3('user@hostname', $writer, $reader, $error, $command);
44
121
122 my $pid = sshopen3( $host, $writer, $reader, $error, @command ) or die $!;
123
127 my $select = new IO::Select;
128 foreach ( $reader, $error ) { $select->add($_); }
129
151
152 die "$error_stream" if length($error_stream);
153
169
170=item sshopen3 HOST, WRITER, READER, ERROR, COMMAND [, ARGS ... ]
171
PgCatalog.pm https://github.com/solgenomics/cxgn-corelibs.git | Perl | 160 lines
125 {
126 CXGN::Apache::Error::notify('found invalid parameter',"Someone sent in '$column_name' as a parameter. Wacky.");
127 $sortby='';
153
154Robert Buels and John Binns <zombieite@gmail.com>
155
xsubpp git://github.com/dwimperl/perl-5.14.2.1-32bit-windows.git | Perl | 174 lines
8 process_file
9 report_error_count
10 )
14or do {
15 my $err = $@ || 'Zombie error';
16 my $v = $ExtUtils::ParseXS::VERSION;
56process_file(%args);
57exit( report_error_count() ? 1 : 0 );
58
Dynamic.pm git://github.com/maverick/ApacheVoodoo.git | Perl | 157 lines
71
72 if ($self->{'object'}->isa("Apache::Voodoo::Zombie") || $self->{'object'}->can($method)) {
73 # Either we have a dead module and the Zombie will answer to whatever was requested,
127 if ($@) {
128 my $error= "There was an error loading one of the base classes for this page ($_):\n\n$@\n";
129
136
137 # FIXME replace with a instance of Apache::Voodoo::Zombie
138 $self->debug("ZOMBIE: $self->{'module'} $method");
138 $self->debug("ZOMBIE: $self->{'module'} $method");
139 return $self->display_error($error,"/$link");
140 }
dnsreflect.pl https://bitbucket.org/ethanr/decloak.git | Perl | 201 lines
39 AutoCommit => 1,
40 RaiseError => 0,
41};
92 push @ans, Net::DNS::RR->new("$qname $ttl $qclass A $rdata");
93 $rcode = "NOERROR";
94 }
97 push @ans, Net::DNS::RR->new("$qname $ttl $qclass A $rdata");
98 $rcode = "NOERROR";
99 }
102 push @ans, Net::DNS::RR->new("$qname $ttl $qclass A $rdata");
103 $rcode = "NOERROR";
104 }
160
161 # Clean zombies
162 do {
Cmd.pm https://github.com/ukautz/decency.git | Perl | 253 lines
138 if ( $cmd =~ /%user%/ && ! $user ) {
139 $self->logger->error( "Could not determine user for recipient ". $self->to. ", command line '$cmd'. ABORT!" );
140 return ( 0 );
169 {
170 # yeah, zombie mess..
171 local $SIG{ CHLD } = 'IGNORE';
194 {
195 # zombies are creepy
196 local $SIG{ CHLD } = 'IGNORE';
mrtgext.pl https://github.com/Elbandi/nagios-plugins.git | Perl | 291 lines
45%customcmds = ( "PROCS" => "numprocesses",
46 "ZOMBIES" => "numzombies",
47 "MEMFREE" => "memfree",
145 }
146 ( $DEBUG ) && print scalar localtime,": ERROR: volume not found.\n";
147 print "-1\n";
157 }
158 ( $DEBUG ) && print scalar localtime,": ERROR: volume not found.\n";
159 print "-1\n";
169 }
170 ( $DEBUG ) && print scalar localtime,": ERROR: volume not found.\n";
171 print "-1\n";
181 }
182 ( $DEBUG ) && print scalar localtime,": ERROR: volume not found.\n";
183 print "-1\n";
Loader.pm git://github.com/maverick/ApacheVoodoo.git | Perl | 69 lines
46 if ($@) {
47 my $error = "$@";
48 $error =~ s/Compilation failed in require at .*Apache\/Voodoo\/Loader.pm line.*//;
52 require Apache::Voodoo::Zombie;
53 $obj = Apache::Voodoo::Zombie->new($module,$error);
54 }
RADpools https://github.com/johnomics/RADtools.git | Perl | 849 lines
7# 02/07/10 Changed defaults to avoid trimming reads
8# 18/07/10 Added MID length parameter and changed default to reject zombies,
9# not accept them
15# Rework trim and quality options, remove mid_length and
16# minimum_sequence_length options, rename zombies to fuzzy_MIDs
17# 25/08/10 Version 1.0
58
59# Would like to use Carp, but an outstanding bug causes cryptic errors
60# when using caller(), so using die until this is fixed
187 open my $read1_in, '<', $read1_file
188 or die "Couldn't open '$read1_file': $OS_ERROR";
189
192 open $read2_in, '<', $read2_file
193 or die "Couldn't open '$read2_file': $OS_ERROR";
194 }
lab1b-tester.pl https://bitbucket.org/jeremythec/lab1b | Perl | 218 lines
168
169# Zombie
170# Method 1
207 next if $result eq $want;
208 next if $want eq 'Syntax error [NULL]' && $result eq '[NULL]';
209 next if $result eq $want;
Mapa.pm https://github.com/ruoso/Zumbis.git | Perl | 145 lines
125 ($font_p, "$texto_mortes $score. $tempo $texto_segundos", $color)
126 or die 'TTF render error: ' . SDL::get_error();
127 my $timer_w = $timer->w;
137 my $tilesize = $self->dados->{tilesize};
138 my $sp_count = scalar @{$self->dados->{zombie}};
139 my $sp_num = int(rand($sp_count - 1)+0.5);
139 my $sp_num = int(rand($sp_count - 1)+0.5);
140 return map { $_ * $tilesize } split /,/, $self->dados->{zombie}[$sp_num]{posicao};
141}
Mapa.pm https://github.com/FROGGS/Zumbis.git | Perl | 137 lines
117 ($font_p, "Mortes: $score. $tempo segundos", $color)
118 or die 'TTF render error: ' . SDL::get_error();
119 my $timer_w = $timer->w;
129 my $tilesize = $self->dados->{tilesize};
130 my $sp_count = scalar @{$self->dados->{zombie}};
131 my $sp_num = int(rand($sp_count - 1)+0.5);
131 my $sp_num = int(rand($sp_count - 1)+0.5);
132 return map { $_ * $tilesize } split /,/, $self->dados->{zombie}[$sp_num]{posicao};
133}
Obj.pm https://github.com/gitpan/KinoSearch.git | Perl | 240 lines
69 char *class_name = HvNAME(SvSTASH(SvRV(blank_obj)));
70 kino_ZombieCharBuf *klass
71 = CFISH_ZCB_WRAP_STR(class_name, strlen(class_name));
91 if (deserialized != self) {
92 THROW(KINO_ERR, "Error when deserializing obj of class %o", klass);
93 }
180instantiate objects of class "KinoSearch::Object::Obj" directly causes an
181error.
182
182
183Takes no arguments; if any are supplied, an error will be reported.
184
Storage.pm https://github.com/tsee/algorithm-spatialindex.git | Perl | 171 lines
36 eval "require $bucket_class; 1;" or do {
37 my $err = $@ || "Zombie error";
38 die "Could not load bucket implementation '$bucket_class': $err"
Server.pm https://github.com/augieschwer/PowerDNS-Control-Server.git | Perl | 747 lines
40 syslog_ident => 'pdns-control-server',
41 syslog_option => LOG_PID | LOG_PERROR,
42 syslog_facility => LOG_LOCAL3,
62 the client can execute commands agains the server; the server returns "+OK" if
63 all is well and "-ERR <error_message>" if there was a problem. A sample session
64 showing the protocol in use is below:
94 syslog_ident => 'pdns-control-server',
95 syslog_option => LOG_PID | LOG_PERROR,
96 syslog_facility => LOG_LOCAL3,
131
132Use to set the Unix::Syslog::openlog($option) variable. The default is LOG_PID | LOG_PERROR
133
192
193 $SIG{CHLD} = 'IGNORE'; # auto. reap zombies.
194 $OUTPUT_AUTOFLUSH = 1;
mtr_timer.pl https://github.com/olliolli/me.store.git | Perl | 145 lines
65 {
66 mtr_error("can't fork");
67 }
106 # As the timers are so simple programs, we trust them to terminate,
107 # and use blocking wait for it. We wait just to avoid a zombie.
108 waitpid($tpid,0);
Runner.pm https://github.com/Getty/p5-dist-zilla-plugin-run.git | Perl | 291 lines
38
39has fatal_errors => (
40 is => 'ro',
57 version => $VERSION,
58 (map { $_ => $self->$_ ? 1 : 0 } qw(fatal_errors quiet)),
59 map {
173
174 # zombie repellent
175 waitpid($pid, 0);
177 if (my $status = ($? >> 8)) {
178 $self->${ $self->fatal_errors ? \'log_fatal' : $self->quiet ? \'log_debug' : \'log'}
179 ([ 'command exited with status %s (%s)', $status, $? ]);
200
201 if (defined $error and $error ne '') {
202 if ($self->fatal_errors and $self->quiet and not $self->zilla->logger->get_debug) {
Contact.pm https://github.com/bgordon831/sgn.git | Perl | 114 lines
33 Ret : nothing meaningful
34 Side Effects: dies on error
35 Example:
55#if we are specifying a mailto as a vhost configuration variable (such as 'bugs_email'), then use that variable's value, and append the request info.
56#mailto can also be specified normally (such as 'John Binns <zombieite@gmail.com>').
57 if ( $mailto and eval{ $vhost_conf->get_conf($mailto)} ) {
106
107john binns - John Binns <zombieite@gmail.com>
108
Daemon.pm https://github.com/jhuckaby/Effect-Games.git | Perl | 447 lines
31
32if ($UID != 0) { die "\nError: Must be root to use this. Exiting.\n"; }
33
75 # my ($package_name, undef, undef) = caller();
76 # $self->log_debug( 1, "Fatal Error: " . $_[0] );
77 Carp::cluck("Stack Trace");
82 ##
83 $self->{zombies} = 0;
84 $self->{active_kids} = {};
129
130 $self->reaper() if $self->{zombies};
131 last if $self->{sig_term};
238 # handler crashed, send back HTTP 500
239 $self->log_debug(1, "HTTP 500 Internal Server Error: $@");
240
ps https://github.com/myw/cope.git | Perl | 179 lines
24 'X' => 'white on_red', # dead
25 'Z' => 'white', # zombie
26 '<' => 'red', # not nice
128 # Skip blabber about bad syntax
129 return if /^(?:Warning|ERROR):/;
130
Reaper.pm https://github.com/book/System-Command.git | Perl | 267 lines
67
68 # What do you think? "Zombie Kill of the Week"?
69 @{$self}{ STATUS() }
73
74 # Who died and made you fucking king of the zombies?
75 if ( defined( my $cmd = $self->{command} ) ) {
85
86 # I think it's safe to assume it isn't a zombie.
87 print { $self->{th} } "System::Command xit[$pid]: ",
102 my ( $in, $out, $err ) = @{$self}{qw( stdin stdout stderr )};
103 $in and $in->opened and $in->close || carp "error closing stdin: $!";
104 $out and $out->opened and $out->close || carp "error closing stdout: $!";
104 $out and $out->opened and $out->close || carp "error closing stdout: $!";
105 $err and $err->opened and $err->close || carp "error closing stderr: $!";
106
make_baf.pl https://github.com/FredrikLindgren/aTweaks.git | Perl | 77 lines
20 "skelwa_ranged.ssl:fl#sklwr.baf",
21 "zombie_sea.ssl:fl#zomse.baf",
22 "fl#lowm.ssl:fl#lowm.baf",
55 File::Path::make_path($to_dir);
56 File::Path::make_path($from_dir . "/ssl_out"); #perl on win does not automatically create it and instead errors out
57 foreach (@files) {
Parser.pm https://github.com/a-maier/mathtomath.git | Perl | 61 lines
24 if (not eval "require $parser; 1;") {
25 my $err = $@ || "Zombie error";
26 die "Couldn't require '$parser': $err";
sprite2c.pl https://github.com/andreas23/ZombieGotcha.git | Perl | 66 lines
11
12print "// ZombieGotcha Sprite Translator \n\n";
13
17$pnmtype=<>;
18print STDERR "ERROR: Type is not P3. Use ASCII GIMP PNM in RGB!." if $pnmtype ne "P3\n";
19
Tiny.pm https://github.com/avar/linux-smaps-tiny.git | Perl | 112 lines
11 } or do {
12 my $error = $@ // "Zombie Error";
13
rs.t https://github.com/rurban/perl.git | Perl | 299 lines
254 } else {
255 my $msg= $@ || "Zombie Error";
256 print "ok ",$test_count++," # \$/ = []; should die\n";
265 } else {
266 my $msg= $@ || "Zombie Error";
267 print "ok ",$test_count++," # \$/ = {}; should die\n";
274 } else {
275 my $msg= $@ || "Zombie Error";
276 print "ok ",$test_count++," # \$/ = \\\\1; should die\n";
283 } else {
284 my $msg= $@ || "Zombie Error";
285 print "ok ",$test_count++," # \$/ = qr/foo/; should die\n";
292 } else {
293 my $msg= $@ || "Zombie Error";
294 print "ok ",$test_count++," # \$/ = \\*STDOUT; should die\n";
syslog2loggly.pl https://github.com/xme/syslog2loggly.git | Perl | 209 lines
25
26# We don't care about ended child (to avoid zombies)
27$SIG{CHLD} = "IGNORE";
33 "local2", "local3", "local4", "local5", "local6", "local7");
34my @severities = ("emergency", "alert", "critical", "error", "warning", "notice",
35 "info", "debug");
57if (! -r $config) {
58 print STDERR "ERROR: Cannot read the configuration file $config.\n";
59 exit 1;
82if (length($apikey) != 36) {
83 print STDERR "ERROR: Invalid or not found API key. Check loggly.com.\n";
84 exit 1;
87{
88 print STDERR "ERROR: Invalid port number: $port.\n";
89 exit 1;
sloop_server.pm https://github.com/billstclair/Loom.git | Perl | 261 lines
71 # CHLD signal: At least one child process exited. Wait for all
72 # children to exit to avoid zombies.
73
107 {
108 print STDERR "error in accept : $!\n" if !signal_get_child();
109 next;
125 # Too many processes.
126 print STDERR "fork error: $!\n";
127 close($client_socket);
158# that the listening socket is fully released, allowing us to restart the
159# server immediately without getting a "bind: Address already in use" error.
160# Return false if the process fails to exit after waiting 2 minutes.
176 my $fh;
177 open($fh, "ps -p $curr_pid|") or die "error: $!";
178 while (<$fh>)
itunes_insert_artwork.pl https://github.com/russelldavis/itunes_insert_artwork.git | Perl | 206 lines
71## Create the OLE Object
72my $iTunes = Win32::OLE->new('iTunes.Application') or die Win32::OLE->LastError();
73
148 if ($count > 1) {
149 print "ERROR - found file with more than one artwork " . $track->Name . "\n";
150 }
164 if (not -s $filename) {
165 print "ERROR saving file $filename\n";
166 } else {
172 if ($err || not -s $compressedFilename) {
173 print "ERROR compressing $name: $err\n";
174 } else {
178 if ($hr < 0) {
179 print "ERROR setting artwork: $hr\n";
180 }
challenge-irssi.pl https://github.com/alyx/sporksircd.git | Perl | 173 lines
9# v1.0 Initial version
10# v1.1 Avoid leaving zombies
11
143
144 if ($output =~ /^Error:/) {
145 $output =~ s/^Error: //;
145 $output =~ s/^Error: //;
146 Irssi::print("challenge: Error from respond: $output");
147 return 0;
challenge-xchat.pl https://github.com/alyx/sporksircd.git | Perl | 137 lines
31# 1.0 - Initial version
32# 1.1 - Avoid leaving zombie ratbox-respond processes around
33#
123
124 if($output =~ /^Error:/)
125 {
statgraph.pl https://github.com/bcc/statgraph.git | Perl | 201 lines
139 $results{proc}{total},
140 $results{proc}{zombie}));
141
160 $results{net}{$dev}{opackets} || 0,
161 $results{net}{$dev}{ierrors} || 0,
162 $results{net}{$dev}{oerrors} || 0));
hawk.pl https://github.com/hackman/Hawk-IDS-IPS.git | Perl | 842 lines
88
89# Clean the zombie childs!
90sub sigChld {
106 # $_[6] The user who is bruteforcing only if $_[3] == log_me
107 my $conn = DBI->connect_cached($_[0], $_[1], $_[2], { PrintError => 1, AutoCommit => 1 }) or return 0;
108
en_us.pm https://github.com/ruoso/Zumbis.git | Perl | 12 lines
3%Lexicon = (
4 'Erro carregando a fonte' => 'Error loading font',
5 'Aperte 1 para Heroi, 2 para Heroina ou enter para continuar!' => 'Press 1 for Hero, 2 for Heroin, or Enter to continue!',
6 'Voce sobreviveu por [_1] segundos!' => 'You survived for [_1] seconds!',
7 'E matou [quant,_1,zumbi]!' => 'And killed [quant,_1,zombie]!',
8 'Mortes:' => 'Kills:',