diff options
Diffstat (limited to 'meta/classes/perl-version.bbclass')
| -rw-r--r-- | meta/classes/perl-version.bbclass | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/meta/classes/perl-version.bbclass b/meta/classes/perl-version.bbclass new file mode 100644 index 0000000000..fafe68a775 --- /dev/null +++ b/meta/classes/perl-version.bbclass | |||
| @@ -0,0 +1,24 @@ | |||
| 1 | PERL_OWN_DIR = "${@["", "/perl-native"][(bb.data.inherits_class('native', d))]}" | ||
| 2 | |||
| 3 | # Determine the staged version of perl from the perl configuration file | ||
| 4 | # Assign vardepvalue, because otherwise signature is changed before and after | ||
| 5 | # perl is built (from None to real version in config.sh). | ||
| 6 | get_perl_version[vardepvalue] = "${PERL_OWN_DIR}" | ||
| 7 | def get_perl_version(d): | ||
| 8 | import re | ||
| 9 | cfg = d.expand('${STAGING_LIBDIR}${PERL_OWN_DIR}/perl/config.sh') | ||
| 10 | try: | ||
| 11 | f = open(cfg, 'r') | ||
| 12 | except IOError: | ||
| 13 | return None | ||
| 14 | l = f.readlines(); | ||
| 15 | f.close(); | ||
| 16 | r = re.compile("^version='(\d*\.\d*\.\d*)'") | ||
| 17 | for s in l: | ||
| 18 | m = r.match(s) | ||
| 19 | if m: | ||
| 20 | return m.group(1) | ||
| 21 | return None | ||
| 22 | |||
| 23 | PERLVERSION := "${@get_perl_version(d)}" | ||
| 24 | PERLVERSION[vardepvalue] = "" | ||
