SI/blkid.pm
changeset 17 d4942418a9ea
parent 16 fd87c1e3b451
--- a/SI/blkid.pm	Tue Jan 19 23:45:54 2010 +0100
+++ b/SI/blkid.pm	Tue Jan 19 23:48:10 2010 +0100
@@ -9,11 +9,10 @@
 
 use SI::tools;
 
-
 sub ids($\%) {
     my ($file, $devs) = @_;
 
-    my @volumes = sort keys %{$devs->{volume}};
+    my @volumes = sort keys %{ $devs->{volume} };
     verbose("reading blkids: @volumes");
     foreach (`blkid -c /dev/null @volumes`) {
         my $dev = (split /:/)[0];
@@ -22,35 +21,36 @@
         my ($type)  = /\sTYPE=.(.*?).\s/;
         my ($label) = /\sLABEL=.(.*?).\s/;
 
-	if (exists $devs->{volume}{$dev}) {
+        if (exists $devs->{volume}{$dev}) {
             $devs->{volume}{$dev}{uuid}  = $uuid;
             $devs->{volume}{$dev}{type}  = $type;
             $devs->{volume}{$dev}{label} = $label;
 
-	    my ($of, $oh);
-	    if (defined $uuid) {
-		    $of = sprintf $file, "uuid." . basename $dev;
-		    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
-		    $oh->print("$uuid\n");
-		}
+            my ($of, $oh);
+            if (defined $uuid) {
+                $of = sprintf $file, "uuid." . basename $dev;
+                $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+                $oh->print("$uuid\n");
+            }
 
-		if (defined $label) {
-	    $of = sprintf $file, "label." . basename $dev;
-	    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
-	    $oh->print("$label\n");
-    }
+            if (defined $label) {
+                $of = sprintf $file, "label." . basename $dev;
+                $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+                $oh->print("$label\n");
+            }
 
-	    if (defined $type) {
-		    $of = sprintf $file, "type." . basename $dev;
-		    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
-		    $oh->print("$type\n");
-	    }
+            if (defined $type) {
+                $of = sprintf $file, "type." . basename $dev;
+                $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+                $oh->print("$type\n");
+            }
 
-	}
+        }
 
     }
     verbose("\n");
 }
 
 1;
+
 # vim:sts=4 sw=4 aw ai si: