Select Code to Download

Select or download this

#!/usr/bin/perl

use strict;
...
sub read_cb {
  print scalar(@_) , ' params', "\n";
}

Select or download this

th1: Error in service: Can't call method "get_interval" without a pack
+age or object reference at /usr/lib/perl5/Net/DBus/Reactor.pm line 21
+1.

Thread 1 terminated abnormally: Can't call method "get_interval" witho
+ut a package or object reference at /usr/lib/perl5/Net/DBus/Reactor.p
+m line 211.
th2: Error in service: org.freedesktop.DBus.Error.NoMemory: Not enough
+ memory

Thread 2 terminated abnormally: main=HASH(0x9ffd850) at /usr/lib/perl5
+/threads.pm line 101.