Changeset fd8dfe7 for perlconfig.c

Timestamp:

Jun 2, 2009, 11:53:14 AM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

8daf504

Parents:

ee183be

git-author:

Nelson Elhage <nelhage@mit.edu> (06/01/09 22:45:53)

git-committer:

Nelson Elhage <nelhage@mit.edu> (06/02/09 11:53:14)

Message:

Load perl code from the filesystem at runtime.

Remove perlwrap.pm and associated code, and instead do 'use BarnOwl'
at boot time to load cdoe from the file system at runtime. In
addition, add appropriate 'use' statements to the .pm files to cause
everything to get loaded.

File:

• perlconfig.c (modified) (3 diffs)

perlconfig.c

@@ -9 +9 @@
 
 static const char fileIdent[] = "$Id$";
-
-extern char *owl_perlwrap_codebuff;
 
 extern XS(boot_BarnOwl);
@@ -304 +302 @@
   char *err;
   char *args[4] = {"", "-e", "0;", NULL};
+  AV *inc;
+  char *path;
 
   /* create and initialize interpreter */
@@ -348 +348 @@
   }
 
-  eval_pv(owl_perlwrap_codebuff, FALSE);
+  /* Add the system lib path to @INC */
+  inc = get_av("INC", 0);
+  path = owl_sprintf("%s/lib", owl_get_datadir());
+  av_unshift(inc, 1);
+  av_store(inc, 0, newSVpv(path, 0));
+  owl_free(path);
+
+  eval_pv("use BarnOwl;", FALSE);
 
   if (SvTRUE(ERRSV)) {