Source code for Config
"""Implementation of perl Config package"""
__author__ = """Joe Cool"""
___email__ = 'snoopyjc@gmail.com'
__version__ = '1.030'
import perllib
import subprocess
import traceback
perllib.init_package('Config')
[docs]def config_sh():
sp = subprocess.run(['perl', '-e', 'use Config qw/config_sh/; print config_sh() . "\n";'], capture_output=True,text=True,shell=False);
return sp.stdout
Config.config_sh = config_sh
try:
Config.Config_h = dict()
lines = config_sh().splitlines()
for line in lines:
if '=' in line:
(lhs, rhs) = line.split('=',1)
rhs = rhs[1:-1] # Eat the quotes
Config.Config_h[lhs] = rhs
except Exception:
traceback.print_exc()