Author: leo
Date: Sat Aug 6 04:12:07 2005
New Revision: 8840
Modified:
branches/leo-ctx5/parrot-config.imc
Log:
merge -r8838:8839 from trunk
Modified: branches/leo-ctx5/parrot-config.imc
==============================================================================
--- branches/leo-ctx5/parrot-config.imc (original)
+++ branches/leo-ctx5/parrot-config.imc Sat Aug 6 04:12:07 2005
@@ -27,9 +27,11 @@ Copyright (c) 2004, the Perl Foundation.
.local int argc
argc = argv
if argc < 2 goto usage
- .local pmc conf_hash
+ .local pmc interp, conf_hash
.local string key
- conf_hash = _config()
+ .include "iglobals.pasm"
+ interp = getinterp
+ conf_hash = interp[.IGLOBALS_CONFIG_HASH]
.local int i
i = 1
loop:
@@ -70,4 +72,3 @@ usage:
printerr ": config-key\n"
exit 1
.end
- .include "library/config.imc"
