File: 20do_one_loop.diff

package info (click to toggle)
libnet-irc-perl 0.79-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 452 kB
  • ctags: 327
  • sloc: perl: 2,309; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 416 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
--- a/IRC.pm
+++ b/IRC.pm
@@ -138,7 +138,7 @@
   # we don't want to bother waiting on input or running
   # scheduled events if we're just flushing the output queue
   # so we bail out here
-  return if $caller eq 'Net::IRC::flush_output_queue';
+  return if defined($caller) and $caller eq 'Net::IRC::flush_output_queue';
 
   # Check the queue for scheduled events to run.
   if(!$self->schedulequeue->is_empty) {