Changeset 71e1e80 for perlwrap.pm


Ignore:
Timestamp:
Nov 10, 2006, 12:38:52 PM (14 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:
9f183ff
Parents:
a55abb3
git-author:
Nelson Elhage <nelhage@mit.edu> (11/10/06 12:37:12)
git-committer:
Nelson Elhage <nelhage@mit.edu> (11/10/06 12:38:52)
Message:
Handling errors loading perl modules
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    rf2f5815 r71e1e80  
    415415
    416416        foreach my $mod (@modules) {
    417             do "$dir/$mod";
     417                unless (do "$dir/$mod") {
     418                        if($!) {
     419                                owl::error("Error loading $dir/$mod: $!");
     420                        } elsif($@) {
     421                                owl::error("Error loading $dir/$mod: $@");
     422                        }
     423                }
    418424        }
    419425        closedir(MODULES);
Note: See TracChangeset for help on using the changeset viewer.