Changeset 71e1e80

Timestamp:

Nov 10, 2006, 12:38:52 PM (18 years ago)

Author:

Nelson Elhage <nelhage@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:

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:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -415 +415 @@
 
         foreach my $mod (@modules) {
-            do "$dir/$mod";
+                unless (do "$dir/$mod") {
+                        if($!) {
+                                owl::error("Error loading $dir/$mod: $!");
+                        } elsif($@) {
+                                owl::error("Error loading $dir/$mod: $@");
+                        }
+                }
         }
         closedir(MODULES);