Displaying 4 results from an estimated 4 matches for "inspect_partit".
2009 Oct 01
1
[PATCH] inspector: Canonicalize device names (fix RHBZ#526717).
...erl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index a9868e2..068cde5 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -575,7 +575,19 @@ sub inspect_all_partitions
     my $g = shift;
     my $parts = shift;
     my @parts = @$parts;
-    return map { $_ => inspect_partition ($g, $_, @_) } @parts;
+    return map { _canonical_dev ($_) => inspect_partition ($g, $_, @_) } @parts;
+}
+
+# Turn /dev/vd* and /dev/hd* into canonical device names
+# (see BLOCK DEVICE NAMING in guestfs(3)).
+
+sub _canonical_dev
+{
+    local $_ = shift;
+
+    return "/dev/sd$1&quo...
2009 Aug 19
2
[PATCH] Export inspect_linux_kernel in Lib.pm
...stfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 1f84bc6..dfa79af 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -66,7 +66,8 @@ use vars qw(@EXPORT_OK @ISA);
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(open_guest get_partitions resolve_windows_path
   inspect_all_partitions inspect_partition
-  inspect_operating_systems mount_operating_system inspect_in_detail);
+  inspect_operating_systems mount_operating_system inspect_in_detail
+  inspect_linux_kernel);
 
 =head2 open_guest
 
@@ -1551,10 +1552,19 @@ sub _check_for_kernels
                 }
                 $config{cmdline} = joi...
2010 Mar 29
4
[PATCH 0/3] Export and merge into Windows Registry
As described here previously:
https://www.redhat.com/archives/libguestfs/2010-March/msg00129.html
Here is the three part patch to reimplement virt-win-reg to support
exporting and merging Windows Registry entries in the 'regedit'
format.
Tested by me on a local Windows VM.
Rich.
-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
virt-top is 'top'
2009 Aug 03
1
[PATCH 1/2] Convert all TABs-as-indentation to spaces.
...wn binaries found in initrd image: {path}",
+                path => $path);
     }
     die __x("file_architecture: unknown architecture: {path}",
-	    path => $path);
+            path => $path);
 }
 =head1 OPERATING SYSTEM INSPECTION FUNCTIONS
@@ -689,84 +689,84 @@ sub inspect_partition
     # First try 'file(1)' on it.
     my $file = $g->file ($dev);
     if ($file =~ /ext2 filesystem data/) {
-	$r{fstype} = "ext2";
-	$r{fsos} = "linux";
+        $r{fstype} = "ext2";
+        $r{fsos} = "linux";
     } elsif ($file =~ /ext3 f...