testing/os-autoinst-distri-rocky
11
0
Fork 0
mirror of https://github.com/rocky-linux/os-autoinst-distri-rocky.git synced 2024-11-29 00:16:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

better splitting of strings

Browse Source
This commit is contained in:
Trevor Cooper 2022-06-30 21:30:34 -07:00
parent ee3005b8f7
commit e0f8ad4a42
Signed by: tcooper
GPG Key ID: 52364D7BBCEB35B8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/os_release.pm
View File

@ -40,12 +40,13 @@ sub run {
my $fullname = $name . " Linux"; my $fullname = $name . " Linux";
my $version_id = get_var("VERSION"); # Should be the version number. my $version_id = get_var("VERSION"); # Should be the version number.
my ($ver_major, $ver_minor) = split /\./, $version_id; my $ver_major = substr($version_id, 0, index($version_id, q/./));
my $varstr = spell_version_number($version_id); my $ver_minor = substr($version_id, index($version_id, q/./), length($version_id));
my $target = lc($ver_major); my $target = lc($ver_major);
my $reltag = script_output 'rpm -q rocky-release --qf "%{RELEASE}\n"'; my $reltag = script_output 'rpm -q rocky-release --qf "%{RELEASE}\n"';
my ($relver, $eltag) = split /\./, $reltag; my $relver = substr($reltag, 0, rindex($reltag, q/./));
my $eltag = substr($reltag, rindex($reltag, q/./)+1, length($reltag));
my $code_name = get_code_name(); my $code_name = get_code_name();
my $version = "$version_id ($code_name)"; my $version = "$version_id ($code_name)";