From 8e7c1b05ec764ca1160b8bfc795568ba9dbbac2e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 18 Nov 2009 16:58:45 +0000
Subject: bootloader-config: fix migrating swap to UUID

---
 perl-install/NEWS                         | 2 ++
 perl-install/standalone/bootloader-config | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 863c5d363..78976db6d 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- bootloader-config:
+  o fix migrating swap to UUID
 - diskdrake:
   o fix handling hdX/sdX devices (#53107)
 - display_help:
diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index 35c117983..1eea36be8 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -317,7 +317,7 @@ sub _should_prefer_UUID {
 sub _add_uuid_to_swap {
     my ($part) = @_;
 
-    my $ids = fs::type::call_vol_id($part);
+    my $ids = fs::type::call_blkid($part);
     $ids->{ID_FS_VERSION} eq '2' 
       or log::l("ERROR: do not know swap version $ids->{ID_FS_VERSION}, so can not add UUID to it"), return;
 
-- 
cgit v1.2.1