view release on metacpan or  search on metacpan

gen/Makefile.unix  view on Meta::CPAN

	@if [ ! -f "$(CACHEDIR)/bin/cache.old" ] ; then \
	  echo "Aborting - nothing to uninstall"; \
	  exit 1 ; \
	fi
	rm -f "$(CACHEDIR)/bin/cperl"
	rm -f "$(CACHEDIR)/bin/cache"
	mv "$(CACHEDIR)/bin/cache.old" "$(CACHEDIR)/bin/cache"

# note: I'm not proud of this one :)
cacembed.h:
	$(PERL) -e 'print "#define CACEMBED_INC \"push \@INC, ".join(",", map( { s@\"@\\\"@; chr(39)."$$_".chr(39) } @INC)).";\"\n#define PERL_OS $$^O\n"' >$@

xsinit.c: cache_fix.h
	$(PERL) -MExtUtils::Embed -e xsinit -- -o xsinit.c -std Cac

clean:
	rm -f xsinit.c cacperl.o real_main.o perl_callout.o xsinit.o cache_fix.o cacperl.c cperl cache cache.ok cacembed.h *~

perl_callout.o: cacembed.h cache_fix.h

cache_fix.o: cache_fix.h

gen/perl_callout.c  view on Meta::CPAN

                    	"'%s/perl/5.6.1/lib',"
                        "'%s/perl/site/5.6.1/lib/MSWin32-x86',"
                        "'%s/perl/site/5.6.1/lib',"
                        "'.',",
                        kwc_cache_home,
                        kwc_cache_home,
                        kwc_cache_home,
                        kwc_cache_home);
#endif
#else
               strcpy(za_in->data, CACEMBED_INC);
#endif           
#ifdef WDEB
        	xxlog(za_in->data);
#endif
		za_in->len = strlen(za_in->data);
		za_out->len = 500;
		zperl(za_in, za_out);
        	free(za_out);
        	free(za_in);
         }
#ifdef WDEB
	xxlog("leaving gen_sub_init");
#endif
}
#endif

static void
cacembed(void)
{
  eval_pv(CACEMBED_INC,1);
}

static int
real_init_perl (int argc, char **argv, char **envp)
{
  int rc;
	if (!my_perl) {
		char *embedding[] = { "", "-e", "0", 0 };

                get_kwc_cache_home();