From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 29 Mar 2011 11:20:57 +0000 (+0100)
Subject: perl: Canonicalize /dev/vd* paths in old inspection code (RHBZ#691724).
X-Git-Tag: 1.9.15~13
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=759f4369de965f46f4a93b3a75dada050f87e223;p=libguestfs.git

perl: Canonicalize /dev/vd* paths in old inspection code (RHBZ#691724).
---

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 97d0e8e..95c18a5 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -922,6 +922,9 @@ sub _find_filesystem
         if (m{^/dev/hd(.*)} && exists $fses->{"/dev/sd$1"}) {
             return ("/dev/sd$1", $fses->{"/dev/sd$1"});
         }
+        if (m{^/dev/vd(.*)} && exists $fses->{"/dev/sd$1"}) {
+            return ("/dev/sd$1", $fses->{"/dev/sd$1"});
+        }
         if (m{^/dev/xvd(.*)} && exists $fses->{"/dev/sd$1"}) {
             return ("/dev/sd$1", $fses->{"/dev/sd$1"});
         }