123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 |
- PERL_OWN_DIR = ""
- # Determine the staged version of perl from the perl configuration file
- # Assign vardepvalue, because otherwise signature is changed before and after
- # perl is built (from None to real version in config.sh).
- get_perl_version[vardepvalue] = "${PERL_OWN_DIR}"
- def get_perl_version(d):
- import re
- cfg = d.expand('${STAGING_LIBDIR}${PERL_OWN_DIR}/perl5/config.sh')
- try:
- f = open(cfg, 'r')
- except IOError:
- return None
- l = f.readlines();
- f.close();
- r = re.compile(r"^version='(\d*\.\d*\.\d*)'")
- for s in l:
- m = r.match(s)
- if m:
- return m.group(1)
- return None
- PERLVERSION := "${@get_perl_version(d)}"
- PERLVERSION[vardepvalue] = ""
- # Determine the staged arch of perl from the perl configuration file
- # Assign vardepvalue, because otherwise signature is changed before and after
- # perl is built (from None to real version in config.sh).
- def get_perl_arch(d):
- import re
- cfg = d.expand('${STAGING_LIBDIR}${PERL_OWN_DIR}/perl5/config.sh')
- try:
- f = open(cfg, 'r')
- except IOError:
- return None
- l = f.readlines();
- f.close();
- r = re.compile("^archname='([^']*)'")
- for s in l:
- m = r.match(s)
- if m:
- return m.group(1)
- return None
- PERLARCH := "${@get_perl_arch(d)}"
- PERLARCH[vardepvalue] = ""
- # Determine the staged arch of perl-native from the perl configuration file
- # Assign vardepvalue, because otherwise signature is changed before and after
- # perl is built (from None to real version in config.sh).
- def get_perl_hostarch(d):
- import re
- cfg = d.expand('${STAGING_LIBDIR_NATIVE}/perl5/config.sh')
- try:
- f = open(cfg, 'r')
- except IOError:
- return None
- l = f.readlines();
- f.close();
- r = re.compile("^archname='([^']*)'")
- for s in l:
- m = r.match(s)
- if m:
- return m.group(1)
- return None
|