Changeset fd8dfe7 for perlconfig.c
- Timestamp:
- Jun 2, 2009, 11:53:14 AM (16 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r96b5c81 rfd8dfe7 9 9 10 10 static const char fileIdent[] = "$Id$"; 11 12 extern char *owl_perlwrap_codebuff;13 11 14 12 extern XS(boot_BarnOwl); … … 304 302 char *err; 305 303 char *args[4] = {"", "-e", "0;", NULL}; 304 AV *inc; 305 char *path; 306 306 307 307 /* create and initialize interpreter */ … … 348 348 } 349 349 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); 351 358 352 359 if (SvTRUE(ERRSV)) {
Note: See TracChangeset
for help on using the changeset viewer.