Changeset 41bbb8a for perl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/ModuleLoader.pm

    rdfbb131 r41bbb8a  
    7777    if(defined $parfile) {
    7878        PAR::reload_libs($parfile);
    79         $class->reload();
     79        $class->run_startup_hooks();
    8080    } elsif(!defined eval "use BarnOwl::Module::$module") {
    8181        BarnOwl::error("Unable to load module $module: \n$@\n") if $@;
     
    114114    $INC{$_} = 1 for (qw(BarnOwl.pm BarnOwl/Hooks.pm
    115115                         BarnOwl/Message.pm BarnOwl/Style.pm));
     116    $class->run_startup_hooks();
     117}
    116118
     119sub run_startup_hooks {
     120    my $class = shift;
    117121    local $SIG{__WARN__} = \&squelch_redefine;
    118122    $class->load_all;
Note: See TracChangeset for help on using the changeset viewer.