Changeset 1a9c761 for perlwrap.pm

Timestamp:

Jan 18, 2007, 5:57:34 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:

212764e

Parents:

32fa306

git-author:

Nelson Elhage <nelhage@mit.edu> (01/18/07 17:57:29)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/18/07 17:57:34)

Message:

Modify :reload to be aware of the -c option, and to work if there is no .owlconf

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -323 +323 @@
   # Do reload
   package main;
-  if (do "$ENV{HOME}/.owlconf" && BarnOwl::reload_hook(@_))
-  {
-      return "owlconf reloaded";
-  } 
-  else
-  {
-      return "$ENV{HOME}/.owlconf load attempted, but error encountered:\n$@";
+  if (-r $BarnOwl::configfile) {
+      undef $@;
+      do $BarnOwl::configfile;
+      owl::error("Error reloading $BarnOwl::configfile: $@") if $@;
   }
+  BarnOwl::reload_hook(@_);
   package owl;
 }