Changeset f265f94

Timestamp:

Jan 8, 2007, 7:39:23 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

46e8a1e

Parents:

00f9a7d

Message:

Ripping out the thread support from perlwrap.pm, since we don't need
it and perl threads suck.

File:

• perlwrap.pm (modified) (4 diffs)

perlwrap.pm

@@ -290 +290 @@
 
 ################################################################################
-# Mainloop hook and threading.
-################################################################################
-
-use threads;
-use threads::shared;
-
-# Shared thread shutdown flag.
-# Consider adding a reload flag, so threads that should persist across reloads
-# can distinguish the two events. We wouldn't want a reload to cause us to
-# log out of and in to a perl-based IM session.
-our $shutdown : shared;
+# Mainloop hook
+################################################################################
+
+our $shutdown;
 $shutdown = 0;
-our $reload : shared;
+our $reload;
 $reload = 0;
 
@@ -340 +333 @@
 # Put things in ~/.owl/shutdown
 
-# At this point I use owl::shutdown to tell any auxillary threads that they
-# should terminate.
+    # use $shutdown to tell modules that that's what we're doing.
     $shutdown = 1;
     mainloop_hook();
@@ -362 +354 @@
 # Reload Code, taken from /afs/sipb/user/jdaniel/project/owl/perl
 ################################################################################
-sub reload_hook (@) 
-{
-    
-
+sub reload_hook (@)
+{
     onStart();
     return 1;
 }
 
-sub reload 
-{
-    # Shutdown existing threads.
+sub reload
+{
+    # Use $reload to tell modules that we're performing a reload.
     $reload = 1;
     owl::mainloop_hook();
@@ -378 +368 @@
     @onMainLoop = ();
     @onStartSubs = ();
-    
+
     # Do reload
     package main;