diff -r aecda2763079 -r 4e3753b998a9 SI/ptable.pm --- a/SI/ptable.pm Mon Jan 18 22:55:10 2010 +0100 +++ b/SI/ptable.pm Tue Jan 19 14:49:43 2010 +0100 @@ -19,17 +19,18 @@ # LVs (used as disk itself) too) foreach (glob("/sys/block/*")) { my $name = basename($_); - verbose("device $name"); + # verbose("device $name"); if (!-e "$_/device") { - verbose("skipping (non-dev)\n"); + # verbose("skipping (non-dev)\n"); next; } if ((grep { /ATTR{removable}/ } `udevadm info --attribute-walk --name $name`)[0] !~ /==.0./) { - verbose("skipping (removable)\n"); + # verbose("skipping (removable)\n"); next; } verbose("\n"); + verbose("device $name\n"); die "ERR: /dev/$name does not exist. (should not happen)" if !-e "/dev/$name"; @@ -50,7 +51,7 @@ # and let's prepare the volume entries foreach (@sfdisk) { - /^(\S+)\s*:.*Id=\s*(\d+)/ or next; + /^(\S+)\s*:.*Id=\s*([[:xdigit:]]+)/ or next; $devs->{volume}{$1} = { origin => "ptable", ptable_type => $2,