Changeset fd8dfe7 for perlconfig.c


Ignore:
Timestamp:
Jun 2, 2009, 11:53:14 AM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    r96b5c81 rfd8dfe7  
    99
    1010static const char fileIdent[] = "$Id$";
    11 
    12 extern char *owl_perlwrap_codebuff;
    1311
    1412extern XS(boot_BarnOwl);
     
    304302  char *err;
    305303  char *args[4] = {"", "-e", "0;", NULL};
     304  AV *inc;
     305  char *path;
    306306
    307307  /* create and initialize interpreter */
     
    348348  }
    349349
    350   eval_pv(owl_perlwrap_codebuff, FALSE);
     350  /* Add the system lib path to @INC */
     351  inc = get_av("INC", 0);
     352  path = owl_sprintf("%s/lib", owl_get_datadir());
     353  av_unshift(inc, 1);
     354  av_store(inc, 0, newSVpv(path, 0));
     355  owl_free(path);
     356
     357  eval_pv("use BarnOwl;", FALSE);
    351358
    352359  if (SvTRUE(ERRSV)) {
Note: See TracChangeset for help on using the changeset viewer.