Changeset 00f9a7d for perlconfig.c

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:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -220 +220 @@
 
 
-char *owl_perlconfig_readconfig(void)
+char *owl_perlconfig_readconfig(char * file)
 {
   int ret;
@@ -267 +267 @@
   perl_get_sv("owl::host", TRUE);
   perl_get_av("owl::fields", TRUE);
-  
+
+  if(file) {
+    SV * cfg = get_sv("owl::configfile", TRUE);
+    sv_setpv(cfg, file);
+  }
+
   perl_eval_pv(owl_perlwrap_codebuff, FALSE);