Changeset be98ba5 for perl


Ignore:
Timestamp:
Jul 8, 2007, 3:39:57 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
5763474
Parents:
b363d83
Message:
I don't understand why this didn't commit last time. I blame psvn.
File:
1 edited

Legend:

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

    r9de39410 rbe98ba5  
    66use lib (BarnOwl::get_data_dir() . "/modules/");
    77use PAR (BarnOwl::get_data_dir() . "/modules/*.par");
    8 use PAR ($ENV{HOME} . "/.owl/modules/*.par");
     8use PAR (BarnOwl::get_config_dir() . "/modules/*.par");
    99
    1010sub load_all {
    1111    my %modules;
    1212    my @modules;
     13
     14    my @moddirs = ();
     15    push @moddirs, BarnOwl::get_data_dir() . "/modules";
     16    push @moddirs, BarnOwl::get_config_dir() . "/modules";
    1317   
    14     for my $dir ( BarnOwl::get_data_dir() . "/modules",
    15                   $ENV{HOME} . "/.owl/modules" ) {
     18    for my $dir (@moddirs) {
    1619        opendir(my $dh, $dir) or next;
    1720        while(defined(my $f = readdir($dh))) {
Note: See TracChangeset for help on using the changeset viewer.