From 73e9459062f85bca8adef6976df8d4a6f2dbbbe0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 1 Sep 2008 16:13:40 +0000 Subject: - keep in $o->{previous_release} the info about upgraded /etc/release, and pass "reason" and version to urpmi.addmedia - we also parse {version} field out of /etc/release --- perl-install/common.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index 2234c0e91..32854daed 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -312,9 +312,11 @@ sub is_running { sub parse_release_file { my ($prefix, $f, $part) = @_; chomp(my $s = cat_("$prefix$f")); + my $version = $s =~ s/\s+release\s+(\S+)// && $1; my $arch = $s =~ s/\s+for\s+(\S+)// && $1; log::l("find_root_parts found $part->{device}: $s for $arch" . ($f !~ m!/etc/! ? " in special release file $f" : '')); - { release => $s, release_file => $f, part => $part, arch => $arch }; + { release => $s, version => $version, + release_file => $f, part => $part, arch => $arch }; } sub release_file { -- cgit v1.2.1