Changeset 00f9a7d for perlwrap.pm

Timestamp:

Jan 8, 2007, 6:50:12 PM (17 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:

f265f94

Parents:

15bd5ef

git-author:

Nelson Elhage <nelhage@mit.edu> (01/08/07 18:50:09)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/08/07 18:50:12)

Message:

Bring back the -c option, and no longer choke if .owlconf doesn't
return true.

File:

• perlwrap.pm (modified) (2 diffs)

perlwrap.pm

@@ -18 +18 @@
 
 
-our $configfile = $::ENV{'HOME'}."/.owlconf";
+our $configfile;
+
+$configfile ||= $::ENV{'HOME'}."/.owlconf";
 
 # populate global variable space for legacy owlconf files 
@@ -455 +457 @@
 # load the config  file
 if (-r $owl::configfile) {
-do $owl::configfile or die $@;
+    undef $!;
+    undef $@;
+    do $owl::configfile;
+    die $@ if $@;
+    die $! if $!;
 }