Changeset 41bbb8a for perl

Timestamp:

Sep 29, 2008, 7:24:37 PM (16 years ago)

Author:

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

Branches:

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

Children:

94b4ecb5

Parents:

dfbb131

Message:

Last change effectively aliased reload-module and reload-modules.
Splitting reload() to get desired behavior.

File:

• perl/lib/BarnOwl/ModuleLoader.pm (modified) (2 diffs)

perl/lib/BarnOwl/ModuleLoader.pm

@@ -77 +77 @@
     if(defined $parfile) {
         PAR::reload_libs($parfile);
-        $class->reload();
+        $class->run_startup_hooks();
     } elsif(!defined eval "use BarnOwl::Module::$module") {
         BarnOwl::error("Unable to load module $module: \n$@\n") if $@;
@@ -114 +114 @@
     $INC{$_} = 1 for (qw(BarnOwl.pm BarnOwl/Hooks.pm
                          BarnOwl/Message.pm BarnOwl/Style.pm));
+    $class->run_startup_hooks();
+}
 
+sub run_startup_hooks {
+    my $class = shift;
     local $SIG{__WARN__} = \&squelch_redefine;
     $class->load_all;