File 0071-perl-Canonicalize-dev-vd-paths-in-old-inspection-cod.patch of Package libguestfs

From 2790a9f0fe7a29c728f7ed67caf50cb48dc5d250 Mon Sep 17 00:00:00 2001
From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 29 Mar 2011 12:20:57 +0100
Subject: [PATCH 71/78] perl: Canonicalize /dev/vd* paths in old inspection code (RHBZ#691724).
 (cherry picked from commit 759f4369de965f46f4a93b3a75dada050f87e223)

---
 perl/lib/Sys/Guestfs/Lib.pm |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 393eb8a..883d049 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"});
         }
-- 
1.7.1