import torrus 1.0.9

[freeside.git] / torrus / setup_tools / check_perlthreading.pl

diff --git a/torrus/setup_tools/check_perlthreading.pl b/torrus/setup_tools/check_perlthreading.pl
new file mode 100644 (file)
index 0000000..22666e3
--- /dev/null
+++ b/torrus/setup_tools/check_perlthreading.pl
@@ -0,0 +1,37 @@
+
+use threads;
+
+$| = 1;
+
+print "The child thread must keep ticking while the main thread sleeps\n";
+print "If it's not so, then we have a compatibility problem\n";
+
+
+
+my $thrChild = threads->create( \&child );
+$thrChild->detach();
+
+print "P> Launched the child thread. Now I sleep 20 seconds\n";
+sleep(20);
+print "P> Parent woke up. Was there ticking inbetween?\n";
+
+exit 0;
+
+
+
+sub child
+{
+    print "C> Child thread started. I will print 10 lines, one per second\n";
+
+    foreach my $i (1..10)
+    {
+        print("C> Child tick " . $i . "\n");
+        sleep(1);
+    }
+}
+
+        
+            
+        
+    
+